Egalité d'une colonne en VBA

[cpeens]

Bonjour quelqu'un saurait il comment ont fais une egalité du style

range("A6").Value = range("C6").Value

mais pour une colonne

le but etant que ce qui est dans la cellule A6 apparaisse dans C6 ,A7 apparaisse dans C7 ect...

merci

 

[Robert]

Re : Egalité d'une colonne en VBA

Bonjour Cpeens, bonjour le forum,

Essaie comme ça :

Sub Macro1()
Dim cel As Range 'déclare la variale cel
'boucle sur toutes les cellules éditées cel de la colonne A
For Each cel In Range("A1:A" & Range("A65536").End(xlUp).Row)
    cel.Offset(0, 2).Value = cel.Value 'copie en C la valeur de A
Next cel 'prochaine cellule de la boucle
End Sub

 

[job75]

Re : Egalité d'une colonne en VBA

Bonjour cpeens, Robert,

Ou aussi :

Sub Copie()
Dim plage As Range
Set plage = Range("A1:A" & Range("A65536").End(xlUp).Row)
plage.Offset(, 2) = plage.Value
End If

A+

 

[cpeens]

Re : Egalité d'une colonne en VBA

merci a toi sa fonctionne bien mais il me copie meme la mise en forme peut ton avoir que la valeur sans la mise en forme merci d'avance

 

[Robert]

Re : Egalité d'une colonne en VBA

Bonjour le fil, bonjour le forum,

Oui en adaptant le code de cette manière :

Sub Copie()
Dim plage As Range
Set plage = Range("A1:A" & Range("A65536").End(xlUp).Row)
plage.Copy
Range("C1").PasteSpecial (xlPasteValues)
End Sub

 

[phlaurent55]

Re : Egalité d'une colonne en VBA

Bonjour à tous,

voir fichier joint
à+
Philippe
.

 

[cpeens]

Re : Egalité d'une colonne en VBA

merci je teste tous sa et je te tiens au courant a bientot