Erreur a coriger svp je sais pas faire

Signaler
Messages postés
1
Date d'inscription
vendredi 7 mai 2021
Statut
Membre
Dernière intervention
7 mai 2021
-
Messages postés
15935
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
15 mai 2021
-
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 "RC3" c est le nom qui s imprime par contre pour "UPS" c est bon

merci de me dire ou est l erreur

cordialement

1 réponse

Messages postés
15935
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
15 mai 2021
545
Bonjour

Puisque tu n’as pas choisi un forum qui correspond à un langage spécifique, c’est quel langage?

Ensuite, pour poster un code, il faut faire comme décrit là https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code