Boucle vba Résolu

Question

Bonjour, 

Quelqu'un peut m'aider pour faire une boucle svp,

je suis novice en vba ! Merci d'avance



 Workbooks("Data.xlsm").Worksheets("CA").Range("A2:A10990") = "FR"Workbooks("Data.xlsm").Worksheets("CA").Range("B2:B10990") = Workbooks("PAUL.xlsm").Sheets("Suivi ").Range("A5:A10999").ValueWorkbooks("Data.xlsm").Worksheets("CA").Range("C2:C10990") = Workbooks("PAUL.xlsm").Sheets("Suivi ").Range("BA5:BA10999").ValueWorkbooks("Data.xlsm").Worksheets("CA").Range("D2:D10990") = Workbooks("PAUL.xlsm").Sheets("Suivi").Range("BB5:BB10999").Value

GodMode_ · Answer

Salut, tu dois mettre "do" dans la première ligne au debut et "loop" dans la dernière ligne.

yg_be · Answer

bonsoir, n'hésite pas à expliquer ce que tu souhaites que ton programme fasse.

lucien · Answer

Bonjour happy4u,

Je te propose ce code VBA, à mettre dans
le Module1 du classeur "PAUL.xlsm" :

Option Explicit

Sub Essai()
  Worksheets("Suivi").Select
  Dim dlig As Long: Application.ScreenUpdating = False
  dlig = Range("A" & Rows.Count).End(xlUp).Row
  If dlig < 5 Then Exit Sub
  With Workbooks("Data").Worksheets("CA")
    .Range("A2:A" & dlig - 3) = "FR"
    Range("A5:A" & dlig).Copy .[B2]
    Range("BA5:BB" & dlig).Copy .[C2]
  End With
  Workbooks("Data").Activate
End Sub

&#x26A0;  Les 2 classeurs doivent être ouverts ! tu dois être sur le classeur "PAUL"
pour lancer la macro ; ça fera le travail, puis ça ira sur le classeur "Data".

&#x26A0;  Je suppose que la feuille "CA" est vide => il n'y a pas de données
précédentes à effacer ; sinon : si la nouvelle liste est moins longue
que l'ancienne, tu verras en dessous les anciennes données.

Si besoin, tu peux me demander une adaptation.
Merci de me dire si ça te convient.

Cordialement

Boucle vba

3 réponses

Votre réponse

Discussions similaires

Newsletters