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

3 réponses

  1.
    michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    bonjour

    Quel logiciel et version ?
    0
  2. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    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
    1. KIKI
       
      Bonjour,

      D'abord merci pour la réactivité...J'ai fais un essai ce matin et rien ne se passe ?
      0
  3. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    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
    1. 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 -
Lylou -

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

4 réponses
Excel : afficher toutes les lignes et colonnes masquées
livlarsen -
Mehdiiii -

27 réponses
[référencement] Ne pas être référencé
kij_82 -
Searaphina -

10 réponses