Copie de lignes

Résolu
KIKI -  
 KIKI -
Bonjour,

Je suis un novice en macro, je souhaite copier toutes les lignes d'une feuille nommée "TAMPON" vers une autre feuille "CHARPENTE" si dans la colonne E la valeur commence par "24CHA".

Merci
A voir également:

3 réponses

Réponse 1 / 3
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
bonjour

Quel logiciel et version ?
0
Réponse 2 / 3
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Bonjour, bonjour Michel,
Peut-être comme ça... 
Sub CopieLigne()
Dim LigSource As Long, LigCopie As Long
LigCopie = 4 '1ère ligne où copier
    For LigSource = 2 To Sheets("TAMPON").Range("E65536").End(xlUp).Row
        If Cells(LigSource, "E") Like "24CHA*" Then
            Sheets("TAMPON").Rows(LigSource).Copy Sheets("CHARPENTE").Rows(LigCopie)
            LigCopie = LigCopie + 1
        End If
    Next LigSource
End Sub

A+
0
KIKI
 
Bonjour,

D'abord merci pour la réactivité...J'ai fais un essai ce matin et rien ne se passe ?
0
Réponse 3 / 3
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
La fonction répond exactement aux explications que tu as donné, si les adresses ou le test 24CHA sont différents à toi d'adapter.
Si t'en sort pas met ton classeur sur CiJoint.com et mettre le lien dans un poste suivant.
0
KIKI
 
Effectivement,

Je me suis trompé dans la désignation des feuille. Ca marche au top.

Merci beaucoup......
0

Discussions similaires

Copier un lien instagram
alaurore -
LEFEUVRE -

7 réponses
Retrouver liens copiés sur le téléphone
SAMA -
Peterson -

3 réponses
copie d'un lien dans le navigateur internet
Ulysse Orseau -
diamantnoir -

4 réponses
lien copié presse papier smartphone Samsung
luckygirl63 -
Pierr10 -

3 réponses