VBA - Boucle et condition

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion guitarman230
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
G

guitarman230

Guest
Bonjour,
c'est mon premier SOS désolé si je m'exprime avec de mauvais termes.

Mon souci est en VBA, je ne comprends pas 😕😕 comment passer à la cellule suivante (de A1 à A2 etc...)
et
comment faire une «boucle» d'action qui stoppe à la 1re cellule vide rencontrée dans la colonne A.

Voir le fichier ci-joint pour le détail.
sos.JPG


Merci d'avance pour toutes vos remarques.
 
Trier par date Trier par votes
Re : VBA - Boucle et condition

Bonjour,

un exemple de boucle, espérant que cela t'aide à avancer.... A noter une petite recherche sur le forum t'aurait permi de trouver plein d'exemples...

Code: 
Option Explicit
Sub test()
Dim i As Long
For i = 1 To Range("A65536").End(xlUp).Row
    Cells(i, 1).Value = i
Next i
End Sub

bonne journée
@+
 
Vote positif 0 Vote négatif
Re : VBA - Boucle et condition

Merci 🙂 pour la rapidité de ta réponse.

Tu as raison je n'ai peut-être pas bien chercher ou suffisamment chercher.

Désolé.


Je vais regarder ton exemple au plus vite et je vous tiendrai informé de mon résultat.
 
Vote positif 0 Vote négatif
Re : VBA - Boucle et condition

malgré ton aide, je ne parviens pas à comprendre comment mettre le code en place.

Merci


Voici le code complet + description de l'action.

1- copier A1
2- ouvrir un autre fichier
3- coller A1 en K19
4- afficher les feuilles cachées
5- Copier-coller valeur
6- enregistrer ce second fichier avec le nom de la valeur de K19+date
7- fermer le fichier

==> prendre A2 et faire la même chose

Je ne parviens pas à prendre les valeurs, j'ai donc dupliqué X fois mon code (+100 fois) comme il y a une limite j'ai triché en découpant par bloque.
********
Public Sub lanceMacro()

Macro1
Macro2
Macro3
Macro4
Macro5

End Sub
********

===============================
Sub Bouton1_Cliquer()


Dim strDate As String, Fichier As String, Chemin As String
Dim wb As Workbook
Dim ws As Worksheet


Range("A1").Select
Selection.Copy


Set wb = Workbooks.Open("c:\perso\FS_S.xls")

Range("K19").Select
ActiveSheet.Paste


Application.Run "RECALC2"

' **** Affiche les feuilles cachées

Sheets("Feuil2").Select
Sheets("Feuil3").Visible = True
Sheets("Feuil3").Select
Sheets("Feuil4").Visible = True
Sheets("Feuil4").Select
Sheets("Feuil5").Visible = True
Sheets("Feuil5").Select
Sheets("Feuil1").Visible = True
Sheets("Feuil1").Select
Sheets("Feuil6").Visible = True



' *** Selectionne les feuilles Copier-coller valeur

Sheets.Select

Sheets(Array("Feuil2", "SELECTION", "Feuil3", "Feuil4", "Feuil5", "Feuil1", "Feuil6")).Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets(Array("SELECTION", "Feuil3", "Feuil4", "Feuil5", "Feuil1", "Feuil6")).Select
Application.DisplayAlerts = False
Sheets("Feuil6").Activate
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
Range("F1").Select

Fichier = [F1] & "_" & Format(Date, "dd-mm-yy")

ChDir "C:\cible"

ActiveWorkbook.SaveAs Filename:=Fichier & ".xls"


ActiveWindow.Close

' ---> Suite, comme je ne parviens pas à passer diretcment à la cellule suivante , je duplique X fois le code


Range("A2").Select
Selection.Copy

Set wb = Workbooks.Open("c:\perso\FS_S.xls")


Range("K19").Select
ActiveSheet.Paste

Application.Run "RECALC2"

' **** Affiche les feuilles cachées

Sheets("Feuil2").Select
Sheets("Feuil3").Visible = True
Sheets("Feuil3").Select
Sheets("Feuil4").Visible = True
Sheets("Feuil4").Select
Sheets("Feuil5").Visible = True
Sheets("Feuil5").Select
Sheets("Feuil1").Visible = True
Sheets("Feuil1").Select
Sheets("Feuil6").Visible = True



' *** Selectionne les feuilles Copier-coller valeur

Sheets.Select

Sheets(Array("Feuil2", "SELECTION", "Feuil3", "Feuil4", "Feuil5", "Feuil1", "Feuil6")).Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets(Array("SELECTION", "Feuil3", "Feuil4", "Feuil5", "Feuil1", "Feuil6")).Select
Application.DisplayAlerts = False
Sheets("Feuil6").Activate
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
Range("F1").Select

Fichier = [F1] & "_" & Format(Date, "dd-mm-yy")
'Fichier = Range("F1").Value & "_" & Format(Date, "dd-mm-yy")

ChDir "C:\cible"

ActiveWorkbook.SaveAs Filename:=Fichier & ".xls"
ActiveWindow.Close


' ---> Suite, ETC....


Range("A3").Select
Selection.Copy

Set wb = Workbooks.Open("c:\perso\FS_S.xls")


Range("K19").Select
ActiveSheet.Paste

Application.Run "RECALC2"

' **** Affiche les feuilles cachées

Sheets("Feuil2").Select
Sheets("Feuil3").Visible = True
Sheets("Feuil3").Select
Sheets("Feuil4").Visible = True
Sheets("Feuil4").Select
Sheets("Feuil5").Visible = True
Sheets("Feuil5").Select
Sheets("Feuil1").Visible = True
Sheets("Feuil1").Select
Sheets("Feuil6").Visible = True



' *** Selectionne les feuilles Copier-coller valeur

Sheets.Select

Sheets(Array("Feuil2", "SELECTION", "Feuil3", "Feuil4", "Feuil5", "Feuil1", "Feuil6")).Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets(Array("SELECTION", "Feuil3", "Feuil4", "Feuil5", "Feuil1", "Feuil6")).Select
Application.DisplayAlerts = False
Sheets("Feuil6").Activate
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
Range("F1").Select

Fichier = [F1] & "_" & Format(Date, "dd-mm-yy")
' Fichier = Range("F1").Value & "_" & Format(Date, "dd-mm-yy")

ChDir "C:\cible"
ActiveWorkbook.SaveAs Filename:=Fichier & ".xls"

ActiveWindow.C


End Sub
 
Vote positif 0 Vote négatif
Re : VBA - Boucle et condition

Pardon pour le ton de mon précédent message, mais je suis fâché contre moi même de ne pas parvenir au résultat et cela malgré de nombreuses heures de lectures sur le net.

Je n'ai pas compris comment mettre une boucle en place et comment descendre à la ligne.

Encore merci
-----------------

ci-joint les fichiers exemples

1/ "Données avec macro.xlsm" macro avec données
2/ Le fichier manipuler par la macro doit être dans ce dossier "c:\perso\ et avoir le nom suivant : "Exemple.xls"
3/ création à la racine de votre disque un dossier nommé "cible" > c:\cible
 

Pièces jointes

Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

D
  • Question Question
XL pour MAC Boucle et manque de resultat
Réponses
2
Affichages
454
sylvanu
sylvanu
TheLio
  • Question Question
XL 2016 [VBA] Boucle sur cases à cocher et N° de ligne est décalée de 2
Réponses
6
Affichages
832
vgendron
vgendron
F
  • Question Question
Microsoft 365 Répéter en boucle plusieurs actions VBA
Réponses
7
Affichages
1 K
Deadpool_CC
Deadpool_CC
A
  • Question Question
Microsoft 365 Copie VBA d'un tableau présent et identique sur 12 onglets dans un autre onglet dont seules les lignes complétées sont copiées
Réponses
4
Affichages
826
AlexiaC
A
E
  • Question Question
Microsoft 365 VBA Calendrier, rien ne se passe.
Réponses
12
Affichages
1 K
fanch55
fanch55
M
  • Résolu(e)
XL 2013 Copier/coller une plage de cellules avec conditions
Réponses
4
Affichages
2 K
mmk
M
A
  • Résolu(e)
XL 2016 Concatener + Vlookup en VBA
Réponses
1
Affichages
1 K
ARNAUDP75007
A
E
  • Résolu(e)
Microsoft 365 Macro VBA - Fusionner des cellules
Réponses
8
Affichages
2 K
Elegancya
E
S
  • Question Question
XL 2010 VBA - macro avec 1 boucle qui alterne 1 action à conditions et 1 action sans conditions
2 3 4
Réponses
58
Affichages
9 K
Scorp0211
S
T
  • Résolu(e)
XL 2010 VBA boucle pour copier/coller cellules avec condition
Réponses
4
Affichages
6 K
ThomasGLT
T
S
  • Résolu(e)
XL 2016 Procédures et arguments
2 3
Réponses
31
Affichages
4 K
patricktoulon
patricktoulon
J
  • Question Question
XL 2013 Mettre en gras un mot et l'associer au résultat d'une cellule (style concatener) avec VBA
Réponses
8
Affichages
3 K
jptaz15
J
S
  • Question Question
Transposition et collage données
2 3
Réponses
43
Affichages
5 K
Sonia2020
S
W
  • Résolu(e)
Microsoft 365 Boucle Loop infinie lors écriture dans des fichier
Réponses
7
Affichages
2 K
Staple1600
Staple1600
M
  • Question Question
XL 2016 Code VBA - boucle Do While qui ne s'arrête pas
Réponses
4
Affichages
2 K
mathieu42400
M
F
  • Question Question
Somme.si + max avec 1 lot unique
Réponses
4
Affichages
939
Francis200
F
A
  • Question Question
Microsoft 365 SOMME d'une plage variable
2
Réponses
28
Affichages
7 K
Amanite
A
P
  • Question Question
XL 2019 copier cellule et décrémenter la lettre a condition qu'il n'y ai pas A dans cellule
Réponses
0
Affichages
682
PETIT YANNICK
P
bredeche
  • Question Question
XL 2013 probleme bouton valide et propriete [TAG]
Réponses
2
Affichages
791
vgendron
vgendron
J
  • Question Question
XL 2016 Exécuter un traitement sur plusieurs colonnes
Réponses
1
Affichages
1 K
Paf
Paf
Retour