Débutant VBA Premiers pas

Bonsoir,

Donc voici, ce sont vraiment mes premiers pas et je fais des tests.
Je sais que ce que je vais vous montrer n'est sans doute pas opti ou réfléchi de la bonne façon mais un pas après l'autre :-)

je sèche un peu pour le moment.

objectif de ma macro :

Au stade où j'en suis, il s'agit d'entrer une date dans une box et d'inscrire cette date à la dernière ligne libre de la colone C, de se décaler sur la droite et de copier le contenu de la valeur de B3 de la feuille active.
Ensuite feuille suivante et on recommence.

Sauf que ça fonctionne tant que ma boucle n'a qu'un seul indice "for i = 4 to 4" par ex si j'essaye avec 4 to 6 ben il coince ici : (voir flèche à droite de la ligne)
J'ai essayé de supprimer la boucle mais même résultat donc j'imagine que c'est un problème de réinitialisation de la variable Dlig.
Mince en vous écrivant, je pense avoir trouvé le problème, en effet une fois que Dlig s'est initialisé sur la feuille 4 j'imagine que ça pose problème d'espérer que ça marche pour la feuille 5 même si c'est la même plage ?
Bon et si je vois juste comment réinitialiser la variable ?

les premières lignes de commentaire c'est pour mon usage afin de suivre mon raisonnement. il pourrait vous aider à me suivre aussi :)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

Sub Répartition() 'Activation du bouton dans la fenêtre "Acceuil" 'Fenêtre pour entrer la date valeur 'Activation de la première sheets à modifier 'Se placer sur la première cellule occupée en partant du bas -1 de la colonne C 'insérer la date valeur 'se déplacer d'une cellule vers la droite et insérer la valeur de la cellule B3 'Activation de la sheets suivante   Dim DLig As Range Dim MaDate As Variant       Application.ScreenUpdating = False   Set DLig = Range("c" & Rows.Count).End(xlUp)     MaDate = "Date" While Not IsDate(MaDate) MaDate = InputBox("Entrez une date", "Date", MaDate) Wend   For i = 4 To 6 Sheets(4).Activate DLig.Offset(1, 0).Select <---- ça coince là au second passage et ça n'a rien inscrit dans la première non plus. ActiveCell.Value = MaDate ActiveCell.Offset(0, 1).Select ActiveCell.Value = Range("B3").Value   Next i     End Sub

---

Bon ben j'ai trouvé on dirait , j'ai placé le set dlig dans la boucle et corrigé une erreur sheet(i) et non 4 et ça fonctionne
merci de m'avoir écouté, vous décrire le problème m'a aidé :)

après si vous avez un conseil pour améliorer ce petit code je suis preneur. Ne riez pas mais il m'a fallu 4h pour l'élaborer hein mais c'est le mien à moi :)

Bonjour,

je te conseille d'emblée les bonnes habitudes à prendre, vu que tu n'en est probablement pas encore empêtré au niveau des mauvaises :mrgreen:

Tu raisonnes comme raisonne l'enregistreur de macro, tu reproduits très exactement les opérations manuelles.
Or, en VBA, on peut s'en affranchir et se concentrer sur le résultat découlant de ces opérations manuelles.

Ici, le but est de collecter une date, l'insérer sur plusieurs feuilles, en ajoutant une autre information sur une autre cellule.
En VBA, tu peut effectuer des opérations sur les feuilles sans être dessus, idem pour les cellules, pour le classeur, pour tous les classeurs ouverts etc... pour tout Objet excel.

Voici une petite optimisation, non pas uniquement fonctionnelle (sauf coquilles à corriger), mais surtout dans l'esprit d'aller à l'essentiel, ce qui allège tes codes et te permet de gagner en efficacité.
On passe souvent par des structures With/End With pour rassembler des manipulations d'objets sans les répéter.
Et pour éviter toute ambiguïté, on écrit toujours la filiation complète d'un objet, par exemple : Classeur.Feuille.Cellule

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub Répartition() Application.ScreenUpdating = False ' Choix de la date Dim MaDate As Variant MaDate = "Date" While Not IsDate(MaDate) MaDate = InputBox("Entrez une date", "Date", MaDate) Wend   ' Boucle sur les feuilles For i = 4 To 6 With ThisWorkbook.Worksheets(i) ' La première cellule vide de la colonne trois With .Cells(.Rows.Count, 3).End(xlUp)(2) ' Ecriture des valeurs .Value = CDate(MaDate) ' le .Parent c'est pour remonter sur l'objet "Feuille" .Offset(0, 1).Value = .Parent.Range("B3").Value End With End With Next i Application.ScreenUpdating = True End Sub

---

Salut, de la lecture :

• Le VBA qu'est ce que c'est ?
• Support de cours complet pour le VBA d'Excel

ainsi que Les meilleurs cours et tutoriels pour apprendre Microsoft Excel

P.-S. : Balise ton code

Merci, merci et merci

précieuses vos interventions :)

Bonjour

Citation:

---

après si vous avez un conseil pour améliorer ce petit code je suis preneur

---

Oui -->> travailler directement avec les objets au lieu de le faire à coups de select, etc ...
ainsi :

Code:

---

1 2 3 4 5 6 7

<s>For i = 4 To 6 Sheets(i).Activate DLig.Offset(1, 0).Select <---- ça coince là au second passage et ça n'a rien inscrit dans la première non plus. ActiveCell.Value = MaDate ActiveCell.Offset(0, 1).Select ActiveCell.Value = Range("B3").Value Next i</s>

---

s'écrit :

Code:

---

1 2 3 4 5 6

for i = 4 to 6 with sheet(i) .dlig.offset(1,0).value = madate .dlig.offset(1,1).value = .range("b3").value end with next

---

Je comprends que tu as déclaré Madate en Variant pour faciliter la gestion de ton inputbox.
Ce n'est pas une bonne pratique. Mieux vaut typer en date, quitte à gérer plus difficilement. Ainsi, par exemple et entre autres possibilités :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim MaDate As Date, toto as boolean, titi as string '....... '...... ' toto = False Do While toto = False titi = InputBox("Entrez une date", "Date") If IsDate(titi) Then toto = True Loop MaDate = CDate(titi)

---

Quelle que soit la méthode, méfie-toi des facéties de VBA.
Amuse-toi à saisir dans l'inputbox une date inexistante : 10/14/2017, par exemple -->> vba la reconnaîtra comme date valable et la transformera en 14/10/2017 ;)
j'aime beaucoup que tu aies écrit toi-même ton bout de code :plusser: --->> Tu as mis cette discussion en RESOLU. J'accepterai toutefois d'y revenir si tu voulais éviter le piège dont je t'ai parlé (la date)
Amitiés

merci pour ton code joe, je ne comprends pas encore tout mais je ne souhaite pas sélectionner la première ligne vide (il y a des blancs) mais la dernière ligne vide tout à la fin du tableau
pour ça que je prenais la dernière remplie +1

merci aussi unparia et j'accepte avec plaisir ta proposition, d'autant que ce n'est que le début de mon projet, au final j'aimerais pouvoir importer un csv et répartir les données en fonction de code placé à chaque ligne.
mais bon plus tard ça ... je vais d'abord essayer de bien comprendre ce que vous m'avez renseigné et je reviens plus tard :)

Bien.
piège évitable par exemple en :
- forçant la saisie sous la forme jj/mm/aaaa
- refusant que la seconde sous-chaine soit > 12
ainsi, par exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim MaDate As Date '....... '...... ' toto = False Do While toto = False titi = InputBox("Entrez une date (format jj/mm/aaaa obligatoire)", "Date") If IsDate(titi) And titi Like "##/##/####" And Val(Mid(titi, 4, 2)) < 13 Then toto = True Loop MaDate = CDate(titi)

---

Bonjour,

Je m'y penche de façon sporadique ces temps-ci mais je m'y penche :-)

Donc les conseils donnés encore merci ça fonctionne vraiment mieux. J'en suis toujours a vouloir approfondir ma compréhension afin de pouvoir restituer un bon cheminement sur mes autres projets.
Et notamment :

Joe le vrai Pourquoi avoir privilégié le type variant pour la date au lieu du type date là où "unparia" recommande justement de choisir le type date pour une bonne pratique ?
Le type variant peut d'après ma lecture, contenir du numérique, du texte, des dates ...
j'imagine que son inconvénient majeur doit être la place qu'il prend en mémoire sinon on ne mettrait que ce type.

Bonjour,

j'utilise, dans mon exemple, un Variant pour pouvoir accepter une saisie qui ne soit pas une date dans le inputbox
ensuite, je teste si c'est une date

Unparia utilise un systême à deux compartiments

1) un variant "titi" qui reçoit la valeur du inputbox
2) il teste titi jusqu'à ce qu'il contienne ce qu'il souhaite (une date dans un format bien défini)
3) il passe la date "titi" à sa variable MaDate


Ainsi, il procède également par usage d'un Variant, sauf qu'il isole cet usage à la détection de la date.
Ensuite, il repart sur une variable typée Date pour continuer son traitement