Boucle vba

Résolu/Fermé

happy4u Messages postés 39 Date d'inscription vendredi 28 octobre 2016 Statut Membre Dernière intervention 17 septembre 2017 - 16 sept. 2017 à 20:14
happy4u Messages postés 39 Date d'inscription vendredi 28 octobre 2016 Statut Membre Dernière intervention 17 septembre 2017 - 17 sept. 2017 à 11:03

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

A voir également:

Boucle vba
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Find vba - Astuces et Solutions
Incompatibilité de type vba ✓ - Forum Programmation
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA

3 réponses

Réponse 1 / 3

lucien
17 sept. 2017 à 01:16

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 Messages postés 39 Date d'inscription vendredi 28 octobre 2016 Statut Membre Dernière intervention 17 septembre 2017
17 sept. 2017 à 11:02

Super, ça me va comme ça! Merci beaucoup.

Réponse 2 / 3

GodMode_ Messages postés 107 Date d'inscription mercredi 30 août 2017 Statut Membre Dernière intervention 12 octobre 2017 43
16 sept. 2017 à 21:15

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

happy4u Messages postés 39 Date d'inscription vendredi 28 octobre 2016 Statut Membre Dernière intervention 17 septembre 2017
17 sept. 2017 à 11:03

Ok merci.

Réponse 3 / 3

yg_be Messages postés 22722 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
16 sept. 2017 à 23:20

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

happy4u Messages postés 39 Date d'inscription vendredi 28 octobre 2016 Statut Membre Dernière intervention 17 septembre 2017
17 sept. 2017 à 11:03

C'est bien résolu, je voulais juste mettre une petite boucle, merci :)

Discussions similaires

Mon pc s'allume et s'éteint en boucle

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

Redémarrage en boucle Xiamo mi note 10

VBA erreur 1004

Discussions similaires

Newsletters