Bonsoir,
J’ai trouvé cet excellent fichier plus que complet sur ce sujet même et je l'ai un peu modifier / compléter. Cependant, j’aimerais y ajouter quelques fonctionnalités. Étant plus que débutant, je fais appel à vos sérieuses compétences Je suis très cartésien donc voici mes questions organisées que j’espère de façon assez précise :
1 / Comment coder le bouton « impression » dans le useform « résultat » pour que les données affichées s’exportent au bon endroit ( dans les bonnes cases laissées vide en face des intitulés ) dans l’onglet « impression » ? J’aimerais que la fenêtre d’impression s’ouvre dès la copie des données dans l’onglet « impression »
2 / Comment coder la modification des données d'une fiche chargée avec le userform " resulat " et les renvoyer vers la feuille recap ?
3 / J’aime bien comprendre les fonctions que j’utilise, ainsi pourrait-on m’expliquer la signification de l’extrait de code suivant ?
Dim cel As Range, lig&, i&
If ComboBox1 <> "" Then
Set cel = Feuil1.Range("A2:A" & Feuil1.Range("A" & Rows.Count).End(xlUp).Row).Find(ComboBox1, , , xlWhole)
If Not cel Is Nothing Then lig = cel.Row Else MsgBox "Aucune correspondance trouvée", , "Pas de Corespondance": Exit Sub
Je ne comprends pas l’intérêt de la Combox1 dans le code puisque même si elle est vide le message "Aucune correspondance trouvée", , "Pas de Corespondance" ne s’affiche pas. Par ailleurs, pourquoi la Feuil1 est citée alors qu’aucune donnée ne transite sur cette dernière ?
Ciao et merci beaucoup pour votre aide !
J.
J’ai trouvé cet excellent fichier plus que complet sur ce sujet même et je l'ai un peu modifier / compléter. Cependant, j’aimerais y ajouter quelques fonctionnalités. Étant plus que débutant, je fais appel à vos sérieuses compétences Je suis très cartésien donc voici mes questions organisées que j’espère de façon assez précise :
1 / Comment coder le bouton « impression » dans le useform « résultat » pour que les données affichées s’exportent au bon endroit ( dans les bonnes cases laissées vide en face des intitulés ) dans l’onglet « impression » ? J’aimerais que la fenêtre d’impression s’ouvre dès la copie des données dans l’onglet « impression »
2 / Comment coder la modification des données d'une fiche chargée avec le userform " resulat " et les renvoyer vers la feuille recap ?
3 / J’aime bien comprendre les fonctions que j’utilise, ainsi pourrait-on m’expliquer la signification de l’extrait de code suivant ?
Dim cel As Range, lig&, i&
If ComboBox1 <> "" Then
Set cel = Feuil1.Range("A2:A" & Feuil1.Range("A" & Rows.Count).End(xlUp).Row).Find(ComboBox1, , , xlWhole)
If Not cel Is Nothing Then lig = cel.Row Else MsgBox "Aucune correspondance trouvée", , "Pas de Corespondance": Exit Sub
Je ne comprends pas l’intérêt de la Combox1 dans le code puisque même si elle est vide le message "Aucune correspondance trouvée", , "Pas de Corespondance" ne s’affiche pas. Par ailleurs, pourquoi la Feuil1 est citée alors qu’aucune donnée ne transite sur cette dernière ?
Ciao et merci beaucoup pour votre aide !
J.
