Selectionner une plage de A1 jusqu'a un critère
Résolu
madjax
Messages postés
2
Statut
Membre
-
madjax Messages postés 2 Statut Membre -
madjax Messages postés 2 Statut Membre -
Bonjour,
je cherche déseperement une solution au problème suivant :
comment puis je dire à EXCEL (VBA) de selectionner les lignes de A1 jusqu'a ce que Excel rencontre <PROGRAMME> (toujours dans la colonne A)
pour le moment j'arrive uniquement à atteindre la cellule comprenant <PROGRAMME>
je n'ai rien vu sur les différents forum.
Merci d'avance.
Mathieu
je cherche déseperement une solution au problème suivant :
comment puis je dire à EXCEL (VBA) de selectionner les lignes de A1 jusqu'a ce que Excel rencontre <PROGRAMME> (toujours dans la colonne A)
pour le moment j'arrive uniquement à atteindre la cellule comprenant <PROGRAMME>
je n'ai rien vu sur les différents forum.
Merci d'avance.
Mathieu
2 réponses
-
Bonjour,
La sélection n'est jamais la bonne solution en VBA.
Ceci étant dit, pour agir sur la plage de cellules de A1 à la cellule contenant <PROGRAMME>, il suffit de trouver à qu'elle ligne de la colonne A on trouve <PROGRAMME>...
comme ceci :Sub PlageDeCellules() Dim Trouve As Range Dim Valeur_cherchee As String Dim Lign As Long Valeur_cherchee = "<PROGRAMME>" Set Trouve = ActiveSheet.Columns(1).Cells.Find(what:=Valeur_cherchee, Lookat:=xlwhole) If Trouve Is Nothing Then MsgBox "Pas trouvé" Else Lign = Trouve.Row End If Set Trouve = Nothing MsgBox "J'ai trouvé " & Valeur_cherchee & " à la ligne : " & Lign End Sub
Si tu veux, par exemple, copier cette plage de cellules :Range("A1:A" & Lign).Copy -
