Selectionner une plage de A1 jusqu'a un critère
Résolu
madjax
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
madjax Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
madjax Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
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