Bonjour à tous les astuciens.

Voici mon problème du jour: sur la feuille 1 j'ai trois colonnes A (abréviation), B (complet), C (retenu), mes colonnes sont remplies au kilomètre.

sur la feuille 2 j'ai fait une macro qui me copie les 3 colonnes de la feuille1 en faisant un tri et une suppression de doublons sur la colonne 1, les données de cette feuilles deviennent données de référence.

1. comment faire pour copier de façon transparente de la feuille 1 vers la 2 dès saisie des données (ma macro le fait mais manuellement et après, j'ai essayé en faisant "worksheet/selectionchange" mais ce n'est pas invisible (changement de feuille))
2. est-il possible de faire comme une saisie semi-automatique dès le début de la saisie dans la colonne 1 feuille1 à partir des données de la feuille 2 (base de données)
3. est-il possible après avoir noté les données dans colonne 1 que les colonnes 2 et 3 se remplissent avec les données de la feuille 2

Je ne sais pas trop comment attaquer le problème, j'ai un peu l'impression de tourner en rond car je rempli une feuille de données qui doit se remplir de données issues de cette même feuille !!!!!

Merci à tous

Bonjour et merci pour ta réponse

voici le fichier : http://cjoint.com/?dfk1tvteHC

j'ai commenté les cellules.

Merci encore

bonjour,

Ton lien est foireux ! Recommence...

A+

Logiquement ça doit fonctionner

http://cjoint.com/?dfnhvYjFfX

bonsoir,

voir ici

A+

bonsoir et merci galopin.

Merci pour tes conseils et ton aide.

pour cette question :

j'aimerai que chaque ligne (colonnes B, C et D) soit copier automatiquement vers le feuille légende pour pouvoir servir de base de données.

Cette question dépasse un peu le cadre du forum !
(On pourrait en faire un livre...)
Si on admet qu'on se contente d'une simple macro qui transfère la ligne active :

Voir la macro Ajoute Ligne

Penses-tu que cela soit possible (même si c'est hors forum) juste pour ma culture.

Je vais me débrouiller avec cela.

Je ne clos pas le sujet pour l'instant au cas ou quelqu'un aurait une idée de génie.

Ben je ne comprend pas trop la question.

Je t'ai donné une macro qui te permet d'ajouter les lignes que tu veux. Qu'est-ce que tu veux de plus ?

Tu veux ajouter plusieurs lignes d'un coup ? On sait comment ce que tu veux copier? Tu veux copier toute la feuille 1 à chaque fois ?

si tu veux copier plusieurs lignes (sélectionnées) d'un coup tu tajoutes :

Sub AjouteLigne()
For each o in Selection
o.Activate
...La suite sans changement
Next
End Sub

Non testé et de mémoire...

A+

bonsoir Galopin,

ma question était de savoir s'il était possible de copier une ligne de façon invisible (pas de changement de feuilles) et cela juste pour information mais le problème n'est plus là.

j'ai changé mon approche, j'ai fait un userform qui me permet de saisir en alimentant directement mes lignes et surtout j'ai la saisie semi-automatique.

Mon problème c'est que je ne sais pas comment faire une recherche verticale en VBA (càd quand mon combobox est rempli,il faudrait que mes 2 textbox se remplissent automatiquement.

Merci et bonne fin de week end

bonjour,

Pour une copie "invisible" il y a deux possibilités :

Application.ScreenUpdating = False et son antidote
Application.ScreenUpdating = True

Sinon il faut supprimer tous les select du code généré à l'enregistrement. Au lieu de :

Sheet("machin").Select
Range("truc").Select
Selection.Copy
Sheet("cible").Select
Range("blabla").Select
ActiveSheet.Paste

Tu écris seulement :

Sheet("machin").Range("truc").Copy Sheet("cible").Range("blabla")

Pour les USF, cela sort de mon champ d'intervention.

A+

Merci,

je serais moins bête ce soir, tu m'as appris beaucoup avec tes soluces.

Merci encore.

A bientôt pour d'autres demandes