[RÉSOLU] Formule en VBA

JCGL

XLDnaute Barbatruc

• 21 Décembre 2013

• #2

Re : Formule en VBA

Bonjour à tous,

Peux-tu essayer :

VB:

Sub Maj_Recap()
Dim DerL&, Lig&
DerL = Sheets("Janvier").Range("A" & Rows.Count).End(3).Row
MsgBox DerL
For Lig = 3 To DerL
Sheets("RECAP").Cells(Lig, 1) = Sheets("Janvier").Cells(Lig, 1)
Next Lig
End Sub

Il peut y avoir plus simple en faisant une copie spéciale valeur de la plage.

A+ à tous

 

Vote positif 0 Vote négatif

aubelix

XLDnaute Impliqué

• 21 Décembre 2013

• #3

Re : Formule en VBA

Bonjour JCGL et tous les Amis du Forum.
Merci pour ta réponse et ton aide.
C'est tout à fait ce que je recherchais.
Mille Mercis.
Bien cordialement.

 

Vote positif 0 Vote négatif

aubelix

XLDnaute Impliqué

• 22 Décembre 2013

• #4

Re : Formule en VBA

Bonjour JCGL et tous les Amis du Forum.
Ta macro fonctionne très bien sur le fichier exemple.
Mais JCGL, je suis désolé, mais en supprimant des données confidentielles
sur le fichier exemple, je me rends compte que la macro démarre en A3 sur janvier
sur le fichier exemple mais doit démarrer en A4 en janvier sur mon fichier.
Peux-tu m'aider à rectifier la macro.
Pour quelle en A4.
Par avance, Merci pour ton aide.
Bien cordialement.

 

Dernière édition: 22 Décembre 2013

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 22 Décembre 2013

• #5

Re : Formule en VBA

Bonjour à tous,

Peux-tu essayer :

VB:

Sub Maj_Recap()Dim DerL&, Lig&
DerL = Sheets("Janvier").Range("A" & Rows.Count).End(3).Row
For Lig = 4 To DerL
Sheets("RECAP").Cells(Lig - 1, 1) = Sheets("Janvier").Cells(Lig, 1)
Next Lig
End Sub

A+ à tous

 

Vote positif 0 Vote négatif

aubelix

XLDnaute Impliqué

• 22 Décembre 2013

• #6

Re : Formule en VBA

Bonjour JCGL et tous les Amis du Forum.
Ta macro fonctionne très bien. Le problème est résolu.
Merci pour ton aide.
Bien cordialement.

 

Vote positif 0 Vote négatif