CONNEXION
  • RetourJeux
    • Sorties
    • Hit Parade
    • Les + populaires
    • Les + attendus
    • Soluces
    • Tous les Jeux
    • Gaming
  • RetourActu Gaming
    • News
    • Astuces
    • Tests
    • Previews
    • Toute l'actu gaming
  • RetourBons plans
    • Bons plans
    • Bons plans Smartphone
    • Bons plans Hardware
    • Bons plans Image et Son
    • Bons plans Amazon
    • Bons plans Cdiscount
    • Bons plans Decathlon
    • Bons plans Fnac
    • Tous les Bons plans
  • RetourJVTech
    • Actus High-Tech
    • Intelligence Artificielle
    • Smartphones
    • Mobilité urbaine
    • Hardware
    • Image et son
    • Tutoriels
    • Tests produits High-Tech
    • Guides d'achat High-Tech
    • JVTech
  • RetourCulture
    • Actus Culture
    • Culture
  • RetourVidéos
    • A la une
    • Gaming Live
    • Vidéos Tests
    • Vidéos Previews
    • Gameplay
    • Trailers
    • Chroniques
    • Replay Web TV
    • Toutes les vidéos
  • RetourForums
    • Hardware PC
    • PS5
    • Switch 2
    • Xbox Series
    • Switch
    • Pokemon pocket
    • FC 25 Ultimate Team
    • League of Legends
    • Tous les Forums
  • PC
  • PS5
  • Xbox Series
  • Switch 2
  • PS4
  • One
  • Switch
  • iOS
  • Android
  • MMO
  • RPG
  • FPS
En ce moment Genshin Impact Valhalla Breath of the wild Animal Crossing GTA 5 Red dead 2
Liste des sujets

VBA Excel récupérer adresse

Chweps
Chweps
Niveau 10
07 juin 2010 à 23:16:25

:salut:

Je cherche à récupérer l'adresse d'une cellule dont je ne connais que le texte qu'elle contient. Par exemple si j'ai écrit "Toto" dans la cellule A1 il faut que je récupère A1 (mais je sais pas où "Toto" est écrit au départ je sais juste que "Toto" est quelque part sur ma feuille).

godrik
godrik
Niveau 30
10 juin 2010 à 15:28:10

Desole, je n'y connais rien en Excel. Je n'ai donc pas de meilleur avis que "lis la doc d'excell". Mais je ne sais pas comment elle est organisee. Quelqu'un d'autre peut etre ?

Chweps
Chweps
Niveau 10
13 juin 2010 à 12:56:57

J'ai trouvé ça pour l'instant pour ceux que ça intéresse mais cela permet que d'activer la cellule où il y a écrit toto :ok:

Sub toto()

Dim i As Integer
Dim j As Integer

Cells(1, 1).Select
For i = 0 To 100
For j = 0 To 100
If ActiveCell.Text = "toto" Then
Exit For
Exit For
Else: Cells(1, 1).Offset(i, j).Select
End If
Next j
Next i
End Sub

Softmama
Softmama
Niveau 1
04 septembre 2010 à 00:44:56

Ceci devrait t'aider :

Dim SonAdresse As String
Dim LaCellule As Range

Set LaCellule = Cells.Find(what:="toto")
SonAdresse = LaCellule.Address

MsgBox SonAdresse 'pour renvoyer l'adresse
LaCellule.Interior.ColorIndex = 7 'pour repérer la cellule

godrik
godrik
Niveau 30
04 septembre 2010 à 05:09:13

NdM: C'est sympa de repondre mais c'etait il y a trois mois ! :)

Sous forums
  • Aide à l'achat Mac
  • Macintosh
  • Création de sites web
  • Création de Jeux
  • Linux
  • Programmation
  • Internet
  • Steam Deck
  • Hardware
La vidéo du moment