boucle avec condition

Bnojour à tous,

je débute dans les macros avec boucles et je bloque sur le cas suivant :

j'ai une feuille excel qui contient des tableaux de 19 lignes sur 4 colonnes qui présentent les mêmes informations (1 tableau par jour)

Les tableaux se "suivent" en ligne par 5. (5 jours ouvrés par semaine)

Je souhaite créer une macro qui récuppère le dernier tableau enregistré, en renvoyant la valeur "date de saisie du tableau" qui se trouve dans le première cellule de la seconde ligne
Ces dates de saises se trouvent (pour la première rangée de tableaux) en A2,E2,I2,M2,Q2
Pour la seconde rangée de tableaux les valeurs sont en A21,E21 etc....

j'ai donc pensé à créer une boucle qui vérifie :

- si il n'y aucune donnée enregistrée en A2 ==> renvoyer la valeur "aucune donnée trouvée" et quitter la macro ( car ça veut dire qu'il n'y a aucun tableau dans la feuille)
- s'il y a une valeur en A2, lancer une boucle qui va tester s'il y a une donnée en A (2 +19)
==> si pas de valeur en A21 alors rechercher la dernière valeur connue en A2, on la renvoie dans la cellule de destination et on quitte la macro
==> si valeur en A21, alors tester s'il y a une valeur en A (21 +19) etc....


Je ne sais pas si la demande est clair, je joint un fichier en exemple, voici le code (parfaitement risible je pense) que j'ai entamé.

Code:

---

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

Sheets("tableaux").Activate Dim i As Integer   If Range("A2") = "" Then 'celule de destination' = "Aucune donnée" End If Exit Sub For i = 21 To 2320 Step 19 If Range("A" & i) = "" Then Range("A" & i).End(xlToRight).Offset(-19, -3).Select 'cellule de destination' = ActiveCell.Value Exit Sub Else Range("A" & i).End(xlToRight).Offset(0, -3).Select 'cellule de destination' = ActiveCell.Value End If Next i   End Sub

---

Merci par avance pour votre aide !

Bonjour,

Une solution

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

Option Explicit Sub Test() Dim Cel As Range Set Cel = RechercheCel() If Not Cel Is Nothing Then Worksheets("infos").Range("B5") = Cel.Value Else MsgBox "Aucune donnée trouvée" End If Set Cel = Nothing End Sub Function RechercheCel() As Range Dim Lig As Integer Dim Col As Integer With Worksheets("tableaux") For Lig = 2 To 40 Step 19 For Col = 1 To 17 Step 4 If .Cells(Lig, Col) <> "" Then Set RechercheCel = .Cells(Lig, Col) Else Exit Function End If Next Col Next Lig End With End Function

---

Cordialement.

Re bonjour,

déjà, merci pour cette amorce !

J'ai intégré la macro et la fonction à mon code, mais je ne parvient à récuppérer que le dernier enregistrement de la première rangée de tableaux.

Précisions sur mon projet : Cette macro va servir à alimenter un textbox qui figure sur userform permettant de saisir un nouveau tableau ==> afin de connaître la dernière date saisie et ne pas ajouter un tableau en doublon

En définitive, la macro actuellement se comporte ainsi :

1) si pas de donnée enregistrée ça fonctionne bien
2) si je n'ai qu'une rangée de tableaux ça fonctionne bien
3) s'il y a plusieurs rangées de tableaux, la macro ne retourne que le dernier enregistrement de la première rangée de tableau, et ne va pas chercher dans la dernière rangée de tableaux enregistrée

Re,

Je viens de faire le test avec le classeur que tu nous a transmis, sans toucher aux données et j'obtiens bien la date du 01/06/2012 en infos!B5, à savoir dernière ligne et dernière colonne à prendre en compte.

Remarque : j'ai supposé que les cellules qui contiennent les dates précédentes sont renseignées et qu'il faut rechercher la dernière date renseignée.
Ce n'est pas ce que tu attends ?

C'est étrange en effet,

j'ai testé sur mon fichier exemple et ça fonctionne.

Je me suis donc penché sur les paramètres de la fonction RechercheCel()

j'y ai modifié la ligne suivante :

Code:

---

For Lig = 2 To 40 Step 19

---

==> devient :

Code:

---

For Lig = 2 To 2000 Step 19

---

Et là ça marche parfaitement (je crois que laisser à 40 posait problème dans mon vrai fichier, à partir de 3 rangées de tableaux. Là je suis tranquille au moins)

Si tu y vois une fâcheuse conséquence (modifier le nombre 40) signale le moi.

Sinon une chose à dire : UN GRAND MERCI

je devrais pouvoir m'en sortir avec tout ça, et bidouiller pour personnaliser.

Bien cordialement

Re,Re,

Il est préférable que tu parviennes à comprendre pourquoi cela ne fonctionne pas avec ton fichier plutôt que modifier la limite de la boucle.
Je m’explique :
La boucle Lig=2 to 40 step 19 permet de balayer les lignes 2, 21 et 40.
La boucle Col = 1 To 17 Step 4 permet de balayer les colonnes 1, 5, 9, 13 et 17.
Ces 2 boucles permettent de controler la valeur des 15 cellules contenant une date de saisie et elles délimitent précisément la dimension de la plage de cellules à prendre en compte.
Exemple de problème que tu risques de rencontrer si tu décales la limite: après la ligne 40 le programme va pointer sur la cellule A59.
Si cette cellule contient une valeur quelconque, celle-ci sera retournée dans B5 et la suite de ton traitement sera erronée.

Cordialement.

Je pense que le problème venait justement de ce paramètre.

Explication : si le chiffre est à 40 ça veut bien dire qu'il n'ira pas chercher plus loin que la ligne 40 ?

Si tel est le cas, à la ligne 40 on tombe sur la 3 ème rangée de 5 tableaux.
Ce qui correspond à 3 semaines de saisie.
Or ce fichier va contenir autant de tableaux que de jours ouvrés dans une année civile.

Aussi, j'ai passé le chiffre à 2000 en attendant ton aval , et je le mettrai ensuite à sa valeur minimale requise pour ne pas alourdir le code

Merci pour les leçons :ccool:

OK, tu pourras donc être amené à utiliser 19 lignes x 53 semaines = 1007 lignes et une boucle de 2 à 990. L'important, c'est que tu n'aies pas de données étrangères à ton tableau à la suite (ligne 1009).
Ben ... ça devrait le faire ;).

Cordialement.