Selectionner une plage de A1 jusqu'a un critère
Résolu/Fermé
madjax
Messages postés
2
Date d'inscription
lundi 4 février 2013
Statut
Membre
Dernière intervention
4 février 2013
-
4 févr. 2013 à 15:11
madjax Messages postés 2 Date d'inscription lundi 4 février 2013 Statut Membre Dernière intervention 4 février 2013 - 4 févr. 2013 à 17:02
madjax Messages postés 2 Date d'inscription lundi 4 février 2013 Statut Membre Dernière intervention 4 février 2013 - 4 févr. 2013 à 17:02
A voir également:
- Selectionner plage jusqu'à la dernière cellule non vide vba
- Dernière version ccleaner gratuit français - Télécharger - Nettoyage
- Aller à la ligne dans une cellule excel - Guide
- Formate pour taxer client frigo vide - Forum Loisirs / Divertissements
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Supprimer page word vide - Guide
2 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 751
4 févr. 2013 à 15:41
4 févr. 2013 à 15:41
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
madjax
Messages postés
2
Date d'inscription
lundi 4 février 2013
Statut
Membre
Dernière intervention
4 février 2013
4 févr. 2013 à 17:02
4 févr. 2013 à 17:02
merci beaucoup nickel ca marche
