Première macro Excel

Fermé
skrolk Messages postés 1 Date d'inscription mercredi 5 juin 2013 Statut Membre Dernière intervention 5 juin 2013 - Modifié par skrolk le 5/06/2013 à 15:49
 skrolk - 7 juin 2013 à 16:33
Bonjour à tous,

C'est la première fois que je poste sur ce forum (je me présenterai dans la foulée).

Je viens de réaliser ma première macro dont le but est de copier le contenu de trois cellule, de coller le contenu de ces cellules dans une autre feuille (ou s'effectue un traitement de donné qui me donne un résultat) puis de copier coller le résultat obtenu dans la feuille1 pour l'intégrer dans la base de donnée.

Je suis bien conscient que ce paragraphe n'est pas clair... C'est pour cela que je souhaiterai joindre un fichier exemple mais je ne trouve pas comment faire.

*LE PROBLEME: la macro "saute des lignes" (1 ligne est oubliée, une ligne est traitée, deux lignes oubliées, 1 ligne traitée, 3 lignes oubliées, 1 ligne traitée...)

*Voici la macro:

Sub Copiecolle()
'
' Copiecolle Macro
'
' Touche de raccourci du clavier: Ctrl+z
'
For i = 0 To 10
ActiveCell.Offset(i, 0).Range("A1").Select
ActiveCell.Offset(0, 1).Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("traitement de donné").Select
ActiveSheet.Paste
Sheets("base de donné").Select
ActiveCell.Offset(0, 3).Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("traitement de donné").Select
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Sheets("base de donné").Select
ActiveCell.Offset(0, 3).Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("traitement de donné").Select
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
ActiveCell.Offset(0, -3).Range("A1").Select
Sheets("base de donné").Select
ActiveCell.Offset(0, -7).Range("A1").Select
ActiveSheet.Paste
Next i
End Sub

Merci d'avance,

Skrolk
A voir également:

8 réponses

pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 644
5 juin 2013 à 16:06
Bonjour,

Pour déposer un fichier , utiliser
https://www.cjoint.com/

Déposer le fichier et venir nous donner le lien de téléchargement dans un message ici.

0
Merci,

Voici le document exemple: http://cjoint.com/?0FhjPngyaCm

Bonne journée
0
Bonjour

voila un macro qui copy d'une feille a l'autre

Sub Copiecolle()
Feuil2.Select
With Feuil1
For Lig = 2 To 10
Range("A" & Lig).Value = Feuil1.Range("B" & Lig)
Range("B" & Lig).Value = Feuil1.Range("E" & Lig)
Range("C" & Lig).Value = Feuil1.Range("H" & Lig)
Next
End With
End Sub

A+

Maurice
0
Re

Rectification

Sub Copiecolle()
Feuil2.Select
With Feuil1
For Lig = 2 To 10
Range("A" & Lig).Value = .Range("B" & Lig)
Range("B" & Lig).Value = .Range("E" & Lig)
Range("C" & Lig).Value = .Range("H" & Lig)
Next
End With
End Sub

A+

MAurice
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Merci, cela marche très bien!

Ce que je cherche à faire maintenant c'est une macro qui permette (à la suite de celle de Maurice) d'effectuer le traitement de donné sur les 50 lignes suivantes de la feuille1 (B, E et H53 à 103). Puisque le traitement de donnés ne peut s'effectuer que sur 50 lignes à la fois.

Pour cela il faut d'abord copie/coller le résultat obtenue dans les cellules D2:D52 de la feuille 2 dans les cellules A2:A52 de la feuille1.

Puis copie/coller les 50 cellules suivantes de la feuille1 qui écraseront les cellules A2:C52 de la feuille2.

Est ce possible?

Voici l'état de la macro à ce jour:

Sub Copiecolleforum()
Feuil2.Select
With Feuil1
For lig = 2 To 52
Range("A" & lig).Value = .Range("B" & lig)
Range("B" & lig).Value = .Range("E" & lig)
Range("C" & lig).Value = .Range("H" & lig)
Next
End With
Feuil1.Select
With Feuil2
For lig = 2 To 52
Range("A" & lig).Value = .Range("D" & lig)
Next
End With

End Sub

A+

Skrolk
0
Re
dur le vba voila avec le compteur de ligne

Sub Copiecolle()
Feuil2.Select
Application.ScreenUpdating = False
Rows("3:10000").Delete
With Feuil1
Nlig = .Cells(Rows.Count, 2).End(xlUp).Row
For lig = 2 To Nlig
Range("A" & lig).Value = .Range("B" & lig)
Range("B" & lig).Value = .Range("E" & lig)
Range("C" & lig).Value = .Range("H" & lig)
Solut = Range("A" & lig) & Range("B" & lig) & Range("C" & lig)
Range("D" & lig).Value = Solut
.Range("A" & lig).Value = Solut
Next
End With
Application.ScreenUpdating = True
End Sub

A+
Maurice
0
Re
Le faire directement ses plus facile
a toi de choisir

Sub Test()
Feuil1.Select
Nlig = Cells(Rows.Count, 2).End(xlUp).Row
For lig = 2 To Nlig
Solut = Range("B" & lig) & Range("E" & lig) & Range("H" & lig)
Range("A" & lig).Value = Solut
Next
End Sub

A+

Maurice
0
Aie, en fait la formule "=concatener" n'est ici que pour servir d'exemple de traitement de donné. Mon fichier original (que je ne peux malheureusement pas joindre) effectue une suite de "BDlire" qui permet d'attribuer une catégorie à l'information contenue dans la base de donné.

Seulement cette attribution n'est réalisable que pour 50 lignes. Je cherche donc une macro qui permette d'effectuer le copie/colle par "paquet" de 50...

Mais je ne comprends pas cette ligne dans ta macro:

Nlig = Cells(Rows.Count, 2).End(xlUp).Row
For lig = 2 To Nlig

Peut-être que la solution est sous mes yeux et que je ne la trouve pas ^^

Merci en tout cas de te donner tant de mal pour m'initier à VBA...
0