Microsoft 365 Erreur de format

Marvin57 · 25 Mars 2024

Bonjour à tout le forum,

avec le petit code ci-dessous, je transfère des données d'une feuille à l'autre.

VB:

Application.ScreenUpdating = False

Sheets("ETAT").Activate

'selection du nom du prénom et du matricule du salarié A à copier
Sheets("GARAGE").Range("B2, C2, R2").Copy

'copie le nom le prénom et matricule du salarié A dans le relevé des heures
Sheets("ETAT").Range("B5").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=True

Or, il me donne une erreur de format après ce transfert dans les cellules dans lesquelles les données ont été transférées.
C'est à dire qu'il affiche le coin gauche en haut en vert.

Pour info, ce sont des nombres que je transfère dans ces cellules.

Quelqu'un pourrait me dire ce qui ne va pas dans ce code S'il vous plaît ?

Merci d'avance à vous et A+

Marvin57

cp4 · 25 Mars 2024

Bonjour,

Au moins un petit fichier joint.

Bonne journée.

mapomme · 25 Mars 2024

Bonjour à tous,

Les données à copier pourraient être des nombres stockés sous forme de texte.
Dans la feuille "Garage" passez les cellules à copier en alignement "Standard". Si ce sont des nombres stockés comme "nombre" alors ils sont alignés à droite et si ce sont des nombres stockés comme "texte" alors ils sont alignés à gauche. Et dans ce dernier cas, Excel vous informe lors de la copie.

Marvin57 · 25 Mars 2024

cp4 à dit:
Bonjour,

Au moins un petit fichier joint.

Bonne journée.

Bonjour cp4,

Merci d'avoir répondu et désolé pour le fichier.

j'ai créé un exemple (c'est pas simple) .

Le soucis c'est que maintenant lors de la création via le formulaire il me place les données en dehors du tableau !!

Et le transfert sur l'autre onglet se passe normalement !! Je n'y comprends plus rien.

Merci d'y jeter un œil .

Marvin57

Marvin57 · 25 Mars 2024

mapomme à dit:
Bonjour à tous,

Les données à copier pourraient être des nombres stockés sous forme de texte.
Dans la feuille "Garage" passez les cellules à copier en alignement "Standard". Si ce sont des nombres stockés comme "nombre" alors ils sont alignés à droite et si ce sont des nombres stockés comme "texte" alors ils sont alignés à gauche. Et dans ce dernier cas, Excel vous informe lors de la copie.

Bonjour mapomme,

Merci pour le retour je vais vérifier cela tout à l'heure.
A+

Marvin57

Marvin57 · 25 Mars 2024

Marvin57 à dit:
Bonjour cp4,

Merci d'avoir répondu et désolé pour le fichier.

j'ai créé un exemple (c'est pas simple) .

Le soucis c'est que maintenant lors de la création via le formulaire il me place les données en dehors du tableau !!

Et le transfert sur l'autre onglet se passe normalement !! Je n'y comprends plus rien.

Merci d'y jeter un œil .

Marvin57

Re,

je crois avoir trouvé l'erreur !

dans mon UserForm réel j'ai un Commandbutton pour modifier des données et j'avais écris

VB:

Private Sub CommandButton7_Click() 'Modification
 
Application.ScreenUpdating = False

If Me.ListBox1.ListIndex = -1 Then
Exit Sub
Else

lignerecopie = Sheets("ETAT").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("ETAT").Range("A" & lignerecopie).Value =TextBox4
 
Sheets("ETAT").Range("B" & lignerecopie).Value = TextBox1
Sheets("ETAT").Range("C" & lignerecopie).Value = TextBox2
Sheets("ETAT").Range("R" & lignerecopie).Value = TextBox3

au lieu de lui rajouter
le Me.Textbox1.Value

etc..

Maintenant cela fonctionne.

Cela doit être le lundi !!

Microsoft 365 Erreur de format

Marvin57

XLDnaute Occasionnel

cp4

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Marvin57

XLDnaute Occasionnel

Pièces jointes

Marvin57

XLDnaute Occasionnel

Marvin57

XLDnaute Occasionnel

Discussions similaires