Excel VBA erreur que je n arrive pas a corriger

Bonjour

je vous adresse un bout de fichier pour correction svp

'Impression de la fiche
With Sheets("Template_etiquette")
.Visible = True
.Cells(1, 1).Value = max_score
'Mettre le nom sur l'étiquette sauf pour UPS où on met le numéro de colis

If Sheets("BDD").Cells(ligne_vide, 5).Value <> "R.C" Then
.Cells(2, 1).Value = Nom.Value
Else
.Cells(2, 1).Value = num_colis.Value
End If
If Sheets("BDD").Cells(ligne_vide, 5).Value <> "U.P.S" Then
.Cells(2, 1).Value = Nom.Value
Else
.Cells(2, 1).Value = num_colis.Value
End If

.PageSetup.PrintArea = "$A$1:$A$2"
.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
.Visible = Hidden
End With

lorsque je demande une etiquette avec le num colis pour "r.c" c est le nom qui s imprime par contre pour "u.p.s" c est bon
si je met a l inverse c est adire r.c a la place de u.p.s c est l etiquette rc qui imprime bien le num colis et ups le nom
si j en supprime un ca fonctionne pour un
merci de votre aide
je voudrais que les deux imprime le num colis a la place du nom

merci de me dire ou est l erreur

cordialement

https://forum.excel-pratique.com/d/download?p=898960&f=21887_5f564ab56fc64984433151

voici le fichier en entier de base j ai rajouter les lignes rc pour impression

cordialement

Bonjour

1) Merci de poster vos demandes sans mettre en majuscule vos phrases
Une mise en majuscule, c'est comme pour les SMS, ça veut dire que vous hurlez !

2) Merci de mettre le code entre balises avec le bouton </>

La prochaine fois, le non respect de ces simples règles, vaudra un post mis à la poubelle

Merci de votre compréhension

Edit modo

"bonjour
toutes mes excuses mais a 65 ans et un bon debut de carate c'est pour moi pouvoir écrire et lire désole de vous avoir frustrer.
je n ai pas l habitude de hurler je demande juste un conseil pour corriger cette erreur que je ne comprends pas
merci et toutes mes excuses"

Jean-Louis,

J'ai une bonne nouvelle pour vous, si vous avez Windows 10 sur votre PC et je l'espère, sinon il faut en changer

Microsoft à pensez à tous les mal voyant et vous avez ce qu'on appelle des "Options d'ergonomie"

2021 05 10 14h21 23

Sinon, je pense que nous sommes nombreux à ne pas avoir compris votre problématique

@+

Rechercher des sujets similaires à "vba erreur que arrive pas corriger"