Selection cellules tableau en VBA
Bonjour a tous!
J'ai besoin de votre aide pour une petite partie de ma macro.
Je souhaiterais selectionner les lignes d'un tableau ayant dans la 1ere colonne le chiffre 9 et uniquement celles-ci.
(Afin de les copier ultérieurement à la fin d'un autre tableau)
Bonjour,
Le "ultérieurement" m'interpèle dans ta demande. Pourquoi ne pas les copier directement une par une en dessous de ton tableau selon le critère que tu demandes.
de là on réalise une macro avec une boucle qui va vérifier qu'il y a un 9 dans chaque cellule de la colonne A, et qui recopiera les données de la ligne dans le 2ème tableau.
Afin de te faire correctemen tla macro, le mieux serait que tu places un petit fichier avec les deux tableaux en question.
A te lire
Dan
voila mon cas simplifié car les données réelles sont confidentielles...
Je souhaiterais copier les numéro commencant par un 9 de la feuil1 dans la feuil2.
(en VBA bien sur)
Bonsoir,
Merci de ton fichier.
Suis cette procédure :
- Vas dans VBA par ALT + F11
- Menu/insertion/module
- A droite dans la fenêtre place la macro ci-dessous
Sub recopie()
'Macro par Dan le 05/07/2007
Dim ligne As Integer
Dim c As Range
Dim prim As Variant
ligne = Sheets("feuil2").Range("A65536").End(xlUp).Row + 1
With sheets("feuil1").Range("A1", Range("A65536").End(xlUp))
Set c = .Find(9, LookIn:=xlValues)
If Not c Is Nothing Then
prim = c.Address
Do
Sheets("feuil2").Cells(ligne, 1) = c.Value
ligne = ligne + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> prim
End If
End With
End Sub- Quitte VBA et Enregistre ton fichier
- Vas dans menu/outils/macro/macro
- Sélectionne ta macro puis clique sur exécuter
Tu peux également dans ce menu, cliquer sur "options" et ajouter un raccourci clavier de sorte qu'en utilisant les touche CTRL + la lettre de raccourci choisie, ta macro s'exécutera.
A te lire
Dan