Excel VBA : Récupérer la valeur d'une cellule Résolu/Fermé

Question

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)
?Configuration: Windows XP
Firefox 3.0.6

lermite222 · Accepted Answer

Bonjour,
Une façon de faire...
Resultat = Cells(Ligne,Colonne).Value
autre façon
Resultat = Range("A1").value
A+

la pioche · Answer

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

mikebzh · Answer

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

Excel VBA : Récupérer la valeur d'une cellule

3 réponses

Discussions similaires