A voir également:
- VBA récupération valeur d'une cellule
- Excel vba recuperer valeur d'une cellule ✓ - Forum - Bureautique
- VBA récupération valeur d'une cellule ✓ - Forum - VB / VBA
- Vba récupérer valeur cellule - Forum - VB / VBA
- Lire la valeur d'une cellule - Forum - Programmation
- Récupérer la valeur d'une cellule ✓ - Forum - VB / VBA
3 réponses
lermite222
- Messages postés
- 8700
- Date d'inscription
- dimanche 8 avril 2007
- Statut
- Contributeur
- Dernière intervention
- 22 janvier 2020
Bonjour,
Une façon de faire...
autre façon
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)
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)
la pioche
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"
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
- Messages postés
- 127
- Date d'inscription
- samedi 20 décembre 2008
- Statut
- Membre
- Dernière intervention
- 11 mars 2009
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