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
A voir également:
- Selectionner une plage de cellule jusqu'à la dernière
- Dernière version ccleaner gratuit français - Télécharger - Nettoyage
- Supprimer dernière page word - Guide
- Aller à la ligne dans une cellule excel - Guide
- Dernière version chrome - Accueil - Applications & Logiciels
- Excel cellule couleur si condition texte - Guide
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 :
Si tu veux, par exemple, copier cette plage de cellules :
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
