Bonjour, bonsoir (vu comment il fait tout sombre avec ces nuages bas)
Je sais que ce problème à souvent été évoqué mais je coince sur l'adaptation de cette formule à mon cas.
pour ceux qui ont suivi mes précédents pérégrinations c'est toujours le meme fichier. Un onglet saisie, une base de données.
J'insère des feuilles au début (qui peuvent être de nombre variable et de noms plus ou moins aléatoire) pour rechercher des valeurs dedans et les rentrer dans la BDD.
Bon j'ai fait plusieurs routines de rapatriemement qui fonctionnent.
Maintenant j'ai besoin qu'elles s'automatisent un peu.
Bref , je dois scanné les onglets à partir du septième jusqu'à la fin.
Leurs noms sont variables donc je ne leur fait référence qu'avec Feuilx.
Je repère le numéro de ligne d'une chaine de caractère.
Je cherche la valeur que je veux sur la meme ligne et je balance le résultat sur la première ligne vide dans ma BDD.
Sur cette meme ligne de ma BDD j'ai besoin du contenu cellules un peu au dessus, ou un peu au dessous du resultat de ma recherche.
Du coup j'ai un peu trop de variable et ça coince.
La variable Ligne est déclarer en tête de module
J'appelle la fonction (reliée à un bouton) dans ce même module.
Private Sub rechMontSoutTrait()
Dim i As Long, k As Long
z = 44
With ThisWorkbook.Sheets("BDD")
For k = 7 To Sheets.Count
With Sheets(k)
For i = 30 To 35
If Left(Sheets(k).Range("I" & i), 5) = "Reste" Then 'Reperage de la ligne Reste à payer
.Cells(Ligne, z) = Sheets(k).Range("M" & i).Value 'Montant Sous-traitant1, 2, 3...
.Cells(Ligne, z + 1) = Sheets(k).Range("M" & i - 8).Value 'Retenue Sous-traitant1, 2, 3...
z = z + 2
End If
Next i
End With
Next k
End with
End Sub
Voilà. J'attend vos avis avec impatience.
Je sais que ce problème à souvent été évoqué mais je coince sur l'adaptation de cette formule à mon cas.
pour ceux qui ont suivi mes précédents pérégrinations c'est toujours le meme fichier. Un onglet saisie, une base de données.
J'insère des feuilles au début (qui peuvent être de nombre variable et de noms plus ou moins aléatoire) pour rechercher des valeurs dedans et les rentrer dans la BDD.
Bon j'ai fait plusieurs routines de rapatriemement qui fonctionnent.
Maintenant j'ai besoin qu'elles s'automatisent un peu.
Bref , je dois scanné les onglets à partir du septième jusqu'à la fin.
Leurs noms sont variables donc je ne leur fait référence qu'avec Feuilx.
Je repère le numéro de ligne d'une chaine de caractère.
Je cherche la valeur que je veux sur la meme ligne et je balance le résultat sur la première ligne vide dans ma BDD.
Sur cette meme ligne de ma BDD j'ai besoin du contenu cellules un peu au dessus, ou un peu au dessous du resultat de ma recherche.
Du coup j'ai un peu trop de variable et ça coince.
La variable Ligne est déclarer en tête de module
J'appelle la fonction (reliée à un bouton) dans ce même module.
Private Sub rechMontSoutTrait()
Dim i As Long, k As Long
z = 44
With ThisWorkbook.Sheets("BDD")
For k = 7 To Sheets.Count
With Sheets(k)
For i = 30 To 35
If Left(Sheets(k).Range("I" & i), 5) = "Reste" Then 'Reperage de la ligne Reste à payer
.Cells(Ligne, z) = Sheets(k).Range("M" & i).Value 'Montant Sous-traitant1, 2, 3...
.Cells(Ligne, z + 1) = Sheets(k).Range("M" & i - 8).Value 'Retenue Sous-traitant1, 2, 3...
z = z + 2
End If
Next i
End With
Next k
End with
End Sub
Voilà. J'attend vos avis avec impatience.
Dernière édition: