[Excel VBA] Recherche valeur, cut, coll dans une autre cellule.
Gorion87
Messages postés
55
Date d'inscription
vendredi 20 février 2009
Statut
Membre
Dernière intervention
28 février 2011
-
20 févr. 2009 à 13:57
Gorion87 Messages postés 55 Date d'inscription vendredi 20 février 2009 Statut Membre Dernière intervention 28 février 2011 - 20 févr. 2009 à 15:40
Gorion87 Messages postés 55 Date d'inscription vendredi 20 février 2009 Statut Membre Dernière intervention 28 février 2011 - 20 févr. 2009 à 15:40
2 réponses
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
20 févr. 2009 à 15:29
20 févr. 2009 à 15:29
Salut
C'est gentil d'avoir précisé que tu étais sous Excel, en VBA.
Note qu'il y a aussi une catégorie de question (modifiée)
Ma formule favorite : "Si tu sais le faire à la main, tu sais le programmer"
Que je répète souvent concernant Excel :
Enregistre une macro pendant que tu fais la manipulation à la main et regarde dans le code généré : Tout y est.
Tu n'as plus qu'à le modifier si tu veux y faire apparaitre une variable à la place de valeurs fixes, et le tour est joué.
Tu auras alors surement des questions plus précises : Revient nous voir sans problème
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
C'est gentil d'avoir précisé que tu étais sous Excel, en VBA.
Note qu'il y a aussi une catégorie de question (modifiée)
Ma formule favorite : "Si tu sais le faire à la main, tu sais le programmer"
Que je répète souvent concernant Excel :
Enregistre une macro pendant que tu fais la manipulation à la main et regarde dans le code généré : Tout y est.
Tu n'as plus qu'à le modifier si tu veux y faire apparaitre une variable à la place de valeurs fixes, et le tour est joué.
Tu auras alors surement des questions plus précises : Revient nous voir sans problème
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Gorion87
Messages postés
55
Date d'inscription
vendredi 20 février 2009
Statut
Membre
Dernière intervention
28 février 2011
20 févr. 2009 à 15:40
20 févr. 2009 à 15:40
Bonjour,
C'est pas faute d'avoir essayer en cherchant sur les forums et en faisant diverses modifications de mes formules VBA que ce soit en enregistrement manuel ou non.
Voilà la formule la plus proche de ce que je recherche mais simplement elle n'a marché qu'une fois et ensuiste elle me recopie le code VBA dans la case de destination et me met Erreur 1004 sur Activesheet.paste.
For X = 2 To Range("F65536").End(xlUp).Row
If Range("F" & X) Like "*PN*" Then Rows(X).EntireRow.SpecialCells(xlCellTypeConstants).Copy
Cells(65536, 6).End(xlUp).Offset(-1, 2).Select
ActiveSheet.Paste
Next X
End Sub
Mais sérieusement c'est mon dernier recours de venir ici, et j'aurais préféré y arrivé seul, mais bon le temps n'est pas mon ami au boulot et c'est l'étape majeur pour ce que je dois faire !!!
Merci de m'aider !!!
C'est pas faute d'avoir essayer en cherchant sur les forums et en faisant diverses modifications de mes formules VBA que ce soit en enregistrement manuel ou non.
Voilà la formule la plus proche de ce que je recherche mais simplement elle n'a marché qu'une fois et ensuiste elle me recopie le code VBA dans la case de destination et me met Erreur 1004 sur Activesheet.paste.
For X = 2 To Range("F65536").End(xlUp).Row
If Range("F" & X) Like "*PN*" Then Rows(X).EntireRow.SpecialCells(xlCellTypeConstants).Copy
Cells(65536, 6).End(xlUp).Offset(-1, 2).Select
ActiveSheet.Paste
Next X
End Sub
Mais sérieusement c'est mon dernier recours de venir ici, et j'aurais préféré y arrivé seul, mais bon le temps n'est pas mon ami au boulot et c'est l'étape majeur pour ce que je dois faire !!!
Merci de m'aider !!!
