VBA récupération valeur d'une cellule [Résolu/Fermé]

Signaler
-
Messages postés
127
Date d'inscription
samedi 20 décembre 2008
Statut
Membre
Dernière intervention
11 mars 2009
-
Bonjour,
je voudrais simplement savoir comment on récupère la valeur d'une cellule
Pour récupérer l'adresse:
Cellule.adress
La ligne:
Ligne.row
La valeur:(le mot que contient la cellule dans excel)
?

3 réponses

Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 099
Bonjour,
Une façon de faire...
Resultat = Cells(Ligne,Colonne).Value

autre façon
Resultat = Range("A1").value

A+
L'expérience instruit plus sûrement que le conseil. (André Gide)  
Si tu te cogne à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
24
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 57036 internautes nous ont dit merci ce mois-ci

merci à toi

je viens de réussir par contre mon programme marche pas tu peux y jeter un oeil
je veux simplement faire une boucle
et lorsque qu'il tombe sur une case non vide me récupère la valeur de cette case et écrit quelque chose sur une feuille dont le nom est le même que la case
exemple case "chaussée m'ouvre le feuille "chaussée"

Sub essai()
Dim Cellule As Variant
Dim ok As Variant
  For Each Cellule In Range("ListeDéroulante")
    Do While Cellule <> ""
      ok = Cellule
      Worksheets("ok").Range [A1] = "yes"
    Loop
  Next
End Sub
Messages postés
127
Date d'inscription
samedi 20 décembre 2008
Statut
Membre
Dernière intervention
11 mars 2009
24
Dim Cellule As Range
Dim nomfeuille As String
For Each Cellule In Range("Liste deroulante")
    If Cellule.Value <> "" Then
        nomfeuille = Cellule.Value
        Worksheets(nomfeuille).Range("A1") = "yes"
    End If
Next


Petit conseil, mets des variables avec des noms cohérents, même dans le plus petit bout de code, tu verras que cela simplifie drôlement la lecture.
Bon courage