Userform de récuperation

[tactic6]

Bonjour tout le monde
j'essaie sans résultats de créer un userform qui affiche les colonnes
A B C D G IP de la feuil1 et qui quand on clic sur un bouton, après avoir sélectionné la ligne voulue, recopie toutes les vers la feuil34
Quelqu'un pourrait m'aiguiller sur la bonne voie ?
Cordialement
Merci

 

[Robert]

Re : Userform de récuperation

Bonjour Tacti6, bonjour le forum,

Pourquoi en Feuil34, que tu n'as même pas daigné créer d'ailleurs, et pas directement dans l'onglet SAISIE ? Mystère... En pièce jointe une proposition avec codes commentés.

 

[tactic6]

Re : Userform de récuperation

Bonjour le forum, Robert
en effet c'était bien sur la feuille "SAISIE" que je veux récupérer les infos
Je regarde ton code et essaie de l'adapter
Je ne vois pas pourquoi j'ai marque feuill34 bizarre bizarre, je devais être en train de bidouiller un autre userform

Merci de ta réponse
Cordialement

EDIT
Les données sont bien retranscrites sur la feuil"SAISIE" mais comment les placer au bon endroit ?

 

[tactic6]

Re : Userform de récuperation

Re
Je me rend compte qu'en relisant mon énonce je m'exprime très très mal

J'aimerais un userform qui n'affiche que les cellules "A B C D G IP" de la feuille 'Feuil1" ceci dans un soucis de clarté
après avoir choisi le ligne voulu je voudrais que toutes les informations écrites dans la ligne correspondantes soient réécrites dans la feuille "SAISIE" en respectant la cellule qui est spécifiée en Feuil1 c'est à dire:
Numéro en G6
Date en I5
Code client en C12
....
toutes les reférences de b15 à B52

toutes les désignations de c15 à C52

....
jusqu'à total ttc en J59

Merci

 

[Robert]

Re : Userform de récuperation

Bonjour Tacti, bonjour le forum,

Je pensais qu'avec le code commenté tu t'en sortirais seul...
Essaie comme ça :

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 'au double-clic dans la ListBox1

''si tu dois effacer les anciennes données, conserve la ligne en dessous, sinon supprime la (ainsi que la sub "effac")
'Call effac
''si tu dois effacer les anciennes données, conserve la ligne en dessus, 
sinon supprime la (ainsi que la sub "effac")

With Me.ListBox1 'prend en compte la ListBox1
    Sheets("SAISIE").Range("NoFacture").Value = .Column(0, .ListIndex)
    Sheets("SAISIE").Range("I5").Value = .Column(1, .ListIndex)
    Sheets("SAISIE").Range("code").Value = .Column(2, .ListIndex)
    'etc... sois tu nommes toutes les plages correspondantes soit tu utilises l'adresse
End With 'fin de la prise en compte de la ListBox1
 
Unload Me 'vide et ferme l'UserForm1
End Sub
Sub effac()
'effacer toutes les plages nommées
Sheets("SAISIE").Range("NoFacture").Value = ""
'etc...
End Sub

 

[Robert]

Re : Userform de récuperation

Bonjour Tacti, bonjour le forum,

En effet tu t'es bien mal exprimé et ça change considérablement le mode de faire... Ça gave, plus de 600 post et tu n'as pas encore compris ça ! Je vais voir si je trouve le courage dans les prochains 36 mois pour tenter de résoudre ton problème...

 

[tactic6]

Re : Userform de récuperation

Merci Robert
Je mi'y mets
Cordialement

 

[tactic6]

Re : Userform de récuperation

Re Robert
C'est OK je t'en remercie
mais ça va faire une sacrée page de ligne de code tout ça
Y aurait il pas une astuce pour faire simple ?
En attendant ça fonctionne et c'est le principal

Encore merci
Cordialement

 

[tactic6]

Re : Userform de récuperation

Re
En effet c'est pas bon du tout

Ça gave, plus de 600 post et tu n'as pas encore compris ça ! Je vais voir si je trouve le courage dans les prochains 36 mois pour tenter de résoudre ton problème...

Et oui pas du tout compris meme, mais bon si j'ai bien saisie j'ai 2 ans pour apprendre

Merci quand même

Cordialement

 

[Robert]

Re : Userform de récuperation

Bonjour Tactic, bonjour le forum

Non 3 ! ha ha ha. Mais je te rassure je gueule souvent mais pas longtemps... Ça me passe vite

 

[tactic6]

Re : Userform de récuperation

🙂
j'ai eu chaud

 

[Robert]

Re : Userform de récuperation

Bonjour Tacti, bonjour le forum,

Haaaa mort de rire ! J'aime cet humour... Je vais me repencher sur ton cas...

 

[Robert]

Re : Userform de récuperation

Bonsoir Tactic, bonsoir le forum,

Une version 2. Attention, plus de cellules fusionnées dans l'onglet SAISIE, ni de formules non plus et une ligne d'en-tête supplémentaire dans l'onget Feuil1.

 

[tactic6]

Re : Userform de récuperation

🙂
J'ai failli attendre
Merci pour ton aide précieuse
Dommage pour les formules car j'aurais bien aimer modifier et réenregistrer pour écraser le fichier

Bonne soirée

Cordialement

 

[abtony]

Re : Userform de récuperation

Bonsoir le fil, le forum, Robert, tactic6,

Intéressant ton code robert, mais faire l'inverse, sauvegarder de la feuille saisie sur la feuil1 ?

Merci et bonne soirée.