Première macro Excel Fermé

Question

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

pilas31 · Answer

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.

skrolk · Answer

Merci,

Voici le document exemple: http://cjoint.com/?0FhjPngyaCm

Bonne journée

foo · Answer

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

foo · Answer

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

skrolk · Answer

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

foo · Answer

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

foo · Answer

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

skrolk · Answer

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...

Première macro Excel

8 réponses

Discussions similaires