Copier Coller colonne A vers B

Bonjour,

je recherche un code vba pour :

A : copier les valeurs de la colonne A en colonne B

B : appliquer ce code à chaque feuilles du classeur : 2 - 3 - 4 - 5 (/!\valeurs différentes suivant la feuilles)

Merci de vos retours !

Bonne après-midi.

Bonjour

Essaye ça :

Sub Copier_Coller()

On Error Resume Next
For i = 2 To 5
    Worksheets(i).Columns(1).Copy Worksheets(i).Columns(2)
    'Worksheets(i).Columns(1).Clear 'Si tu veux effacer les données de la colonnne A après avoir fait la copie
Next i

End Sub

Re,

Merci de votre retour,

• la macro fonctionne bien et copie effectivement l'ensemble de ma colonne A vers la B.

• Cependant, j'aimerais que cela copie uniquement les valeurs (123) et que cette copie s'effectue sur l'ensemble des feuilles.

Merci encore !

Bonjour benitoAP, le forum,

Décidément GGautier, on se croise souvent aujourd'hui,

@benito: la prochaine fois, joint un fichier avec le résultat escompté,

Un essai:....CTRL + e pour lancer la macro

Sub test()
 Dim dl As Integer, i  As Integer, j As Integer

  For i = 1 To Sheets.Count
   dl = Sheets(i).Range("A" & Rows.Count).End(xlUp).Row
    For j = 1 To dl    'de la ligne 1 à la dernière ligne : à adapter
     If Sheets(i).Range("A" & j) Like 123 Then Sheets(i).Range("A" & j).Copy Sheets(i).Range("B" & j)
     'Sheets(i).Range("A1:A" & dl).Copy Sheets(i).Range("B1")  'copie la colonne A
    Next j
  Next i
End Sub
3classeur1.xlsm (14.98 Ko)

Cordialement,

Bonjour et merci pour votre retour.

Votre code marche bien mais je n'arrive pas a l'adapter à mon fichier.

Vous trouverez ci joint le tableau qui me permettrais de passer d'un métré à l'estimatif.

La Macro doit permettre de compléter la colonne "I" en collant (valeur uniquement) les valeurs de la colonne "L"

Re,

Peut-être ainsi:

Sub test()
 Dim dl As Integer, i  As Integer, j As Integer

  For i = 1 To Sheets.Count
   dl = Sheets(i).Range("H" & Rows.Count).End(xlUp).Row
    For j = 5 To dl    'de la ligne 5 à la dernière ligne : à adapter
     If Sheets(i).Range("L" & j) <> "" Then Sheets(i).Range("I" & j) = Sheets(i).Range("L" & j)
    Next j
  Next i
End Sub

Bonne soirée,

Bonjour et merci !

je mets en place ce code sur mon fichier complet et tout fonctionne !!

cool

J'ouvre un nouveau sujet à la recherche d'une "macro" permettant de supprimer l'ensemble des données précédemment copiée.

Rechercher des sujets similaires à "copier coller colonne"