Signaler

Boucle vba [Résolu]

Posez votre question happy4u 39Messages postés vendredi 28 octobre 2016Date d'inscription 17 septembre 2017 Dernière intervention - Dernière réponse le 17 sept. 2017 à 11:03 par happy4u
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").Value

Workbooks("Data.xlsm").Worksheets("CA").Range("C2:C10990") = Workbooks("PAUL.xlsm").Sheets("Suivi ").Range("BA5:BA10999").Value

Workbooks("Data.xlsm").Worksheets("CA").Range("D2:D10990") = Workbooks("PAUL.xlsm").Sheets("Suivi").Range("BB5:BB10999").Value
Utile
+1
plus moins
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


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

⚠  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
 
happy4u 39Messages postés vendredi 28 octobre 2016Date d'inscription 17 septembre 2017 Dernière intervention - 17 sept. 2017 à 11:02
Super, ça me va comme ça! Merci beaucoup.
Répondre
Donnez votre avis
Utile
+0
plus moins
Salut, tu dois mettre "do" dans la première ligne au debut et "loop" dans la dernière ligne.
happy4u 39Messages postés vendredi 28 octobre 2016Date d'inscription 17 septembre 2017 Dernière intervention - 17 sept. 2017 à 11:03
Ok merci.
Répondre
Donnez votre avis
Utile
+0
plus moins
bonsoir, n'hésite pas à expliquer ce que tu souhaites que ton programme fasse.
happy4u 39Messages postés vendredi 28 octobre 2016Date d'inscription 17 septembre 2017 Dernière intervention - 17 sept. 2017 à 11:03
C'est bien résolu, je voulais juste mettre une petite boucle, merci :)
Répondre
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !