Discussion :

[jonleboss44]

Bonjour à tous,

Je suis partis d'une base de fichier déjà existante et excellente que j'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 ?

Code :

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

1
2
3
4
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 ?

Je pense pas qu’il y ait beaucoup de challenge pour les pros que vous êtes … Mais, c’est hors de ma portée

Merci d’avance.

Jonathan