Discussion :

[Eiselk]

Hello hello,
Je viens encore vers vous, voilà comme mis dans le titre, je ne sais pas s'il y a moyen d'intégrer une sorte de rechercheV qui part rapport à une suite de lettre & chiffre il sait le mettre à la feuille qui porte le même nom que cette suite là? C'est pas très clair, je vais expliquer un peu le but de mon programme excel.

On lance le programme E, on peut naviguer dans les divers menus, arrivés à certains menus qui se split vers d'autres classeurs qui ont sont les programmes d'origines pour faire les rapports, dans ces dits rapports, se trouve déjà un vlookup disposant d'une DB avec le personnel (n° + nom) et donc qui par rapport à ça avec le n° vient mettre le nom, et on remplit les données, on enregistre, etc.

Maintenant ma question c'est est-ce qu'il y a moyen de dire, voilà "SI n° de personnel" tu copies la ligne de la cellule et tu l'envoies sur un autre fichier qui lui aura "X sheets" (nb du personnel) avec leur n° et que ça soit mis en automatise sur les feuilles correspondantes? Après il y a p-e plus simple et moins hard on copie alors juste la ligne si je rencontre le n° et tout va dans le classeur, de là on vient faire un userform qui prendrait p-e les données par rapport au n° ?
Je comptais l'intégrer dans le code de mon bouton de sauvegarde pour éviter les manipulations inutiles. Je ne sais pas si c'est plus clair, je commence à coder ça, la première étape serait de lui faire reconnaitre les n° qui sont sur une autre feuille et de là venir copier la ligne de la cellule (je précise qu'il y a 2 colonnes différentes et 11 lignes à copier.

Je peux éclaircir si besoin, je mettrais à jour mon avancement aussi.

Eiselk

[SureKey]

Salut,

Tu peux déclarer/appeler la variable = n° pour t'en servir dans le nom des Sheet ? Je crois que ça répondrait simplement à ta première question.

Je serai d'accord avec toi de décomposer en procédure parent(RechercheV) puis enfants (déplacement, etc...) pour que ce soit moins hard.

Cdt

[Eiselk]

Coucou,

voilà j'avance un petit peu, je vais couper ça en 2 étapes, d'abord une copie d'un bloc en particulier. Puis de là je viendrais faire un vlookup,

je rencontre quelques problèmes cependant.

Voici mon code,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Test2()
    Dim Source As Range
    Set Source = Range("O6:Y49")
    Workbooks.Open Filename:="***.xlsm"
    Source.Copy Sheets("Central").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
End Sub

Donc ça dit qu'il vienne copier ce bloc là dans la nouvelle sheet qui fera office de db pour le nouveau vlookup, maintenant le problème que je rencontre, et que j'aimerais améliorer, c'est que j'ai un 2ème bloc à copier sur les mêmes colonnes mais pas les mêmes lignes. Et comment copier la ligne seulement si la case O de bloc est remplie, donc de O6 à O49, si c'est rempli il copie, sinon non?

Cette macro sera couplée a mon bouton de sauvegarde, mais simplement éviter de compiler plusieurs fichiers, je les testes séparèment pour le moment.
Merci merci

[SureKey]

Salut,

Je suis quasiment sur que tu veux utiliser If Then, et normalement avec une boucle For To, Next. Peut être reconnais tu :

Dim i As Intégrer

For i = 0 To i = longueurdetaliste

If taliste(i) <> "" Then
Copy....
End If

Next i

Je suis pas du tout à l'aise avec la variable taliste et tout ce qui va avec, mais normalement si tu cherches des exemples de ce qu'il y a au dessus il devrait y avoir plus de précisions.

Bon courage

édit : cherche des exemples avec "counter" dans la boucle aussi