Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

[VBA] insertion d'une ligne sans les formats

3 réponses
Avatar
Emile63
Bonjour =C3=A0 tous,

Je cherche =C3=A0 ins=C3=A9rer une ligne dans une petite base de donn=C3=A9=
es avec le code suivant:
Selection.Insert Shift:=3DxlDown, CopyOrigin:=3DxlFormatFromLeftOrAbove

Malheureusement pour moi, lors de l'insertion il copie automatiquement le f=
ormat des cellules de la ligne du dessus, alors que je souhaiterais un form=
at neutre.

Comment puis-je m'y prendre pour arriver =C3=A0 mon but.
Je n'ai rien trouv=C3=A9 =C3=A0 propos de CopyOrigin...

Je vous remercie d'avance pour votre aide
Meilleures salutations

3 réponses

Avatar
JièL
Hello,
CopyOrigin a 2 valeurs possibles, 0 (xlFormatFromLeftOrAbove) ou 1
(xlFormatFromRightOrBelow)
Pur avoir un format "neutre" il faudrait en plus effacer le format
Selection.Insert Shift:=xlDown
Selection.ClearFormats
--
JièL insérateur
Le 02/12/2016 à 11:42, Emile63 a écrit :
Bonjour à tous,
Je cherche à insérer une ligne dans une petite base de données avec le code suivant:
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Malheureusement pour moi, lors de l'insertion il copie automatiquement le format des cellules de la ligne du dessus, alors que je souhaiterais un format neutre.
Comment puis-je m'y prendre pour arriver à mon but.
Je n'ai rien trouvé à propos de CopyOrigin...
Je vous remercie d'avance pour votre aide
Meilleures salutations
Avatar
MichD
Bonjour,
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Ajoute la ligne de code suivante :
Selection.Style = "Normal"
xlFormatFromRightOrBelow OU xlFormatFromLeftOrAbove
Range("A3:E3").Style = "normal"
Ceci serait suffisant en supposant que "Selection" représente un objet "Range"
(une plage de cellules continues)
Selection.Insert
Selection.Style = "Normal"
MichD
Avatar
Emile63
Meci JièL et MichD,
Les deux variantes me vont.
Encore merci pour votre aide,
Meilleures salutations.
Emile