A voir également:
- Vba récupérer valeur cellule
- Récupérer valeur cellule vba - Meilleures réponses
- Récupérer la valeur d'une cellule excel vba - Meilleures réponses
- VBA récupération valeur d'une cellule ✓ - Forum - VB / VBA
- Excel vba récupérer valeur cellule ✓ - Forum - Bureautique
- VBA excel - Récupérer une valeur contenue dans une cellule fusionnée - 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