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 une plage de A1 jusqu'a un critère
- Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image de manchots sur une image de plage. retrouvez l'image originale de la plage. que cachent les manchots ? - Forum Musique / Radio / Clip
- Selectionner plage jusqu'à la dernière cellule non vide vba - Forum VB / VBA
- Ajoutez à la liste de contacts ana le goff, inscrite le 27 novembre 2015, dans la catégorie i. puis triez les contacts en les classant : par ordre alphabétique de leur nom de famille (critère principal), puis par date du plus récent au plus ancien (critère secondaire). quel mot apparaît à la verticale dans la colonne "catégorie" entre les lignes 200 et 209 (en-tête compris) ? ✓ - Forum Word
- Image de manchots sur une image de plage ✓ - Forum Graphisme
- Comment faire une liste déroulante dans excel à partir d'une plage nommée ? - 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 741
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