Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Problème macro (garder les couleurs de fond)

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion eduraiss
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
E

eduraiss

XLDnaute Accro
Bonjour le forum

voici la macro ci-dessous me permet sur une plage de cellule de copie une mise en forme conditionnel 'texte)ainsi que les bordures

Mon problème est que dans cette plage j'ai des cellules de couleur différente, je ne parle pas de la couleur texte mais du fond
j'aurais aimer les conserver sans que cela les effaces lorsque je déclanche la macro
Merci de votre aide

Private Sub CommandButton20_Click()
Application.ScreenUpdating = False
Range("L3").Select
Selection.Copy

Range("C4:C11,E4:E11,G4:G11").Select
Range("G4").Activate

Range("C4:C11,E4:E11,G4:G11,C14:C34,E14:E34,G14:G34").Select
Range("G14").Activate

Range("C4:C11,E4:E11,G4:G11,C14:C34,E14:E34,G14:G34,C37:C61").Select
Range("C37").Activate

Range( _
"C4:C11,E4:E11,G4:G11,C14:C34,E14:E34,G14:G34,C37:C61,E37:E61,G37:G61,I53:J61") _
.Select
Range("I53").Activate

Range( _
"C4:C11,E4:E11,G4:G11,C14:C34,E14:E34,G14:G34,C37:C61,E37:E61,G37:G61,I53:J61,C65:C95" _
).Select
Range("C65").Activate

Range( _
"C4:C11,E4:E11,G4:G11,C14:C34,E14:E34,G14:G34,C37:C61,E37:E61,G37:G61,I53:J61,C65:C95,E65:E95" _
).Select
Range("E65").Activate

Range( _
"C4:C11,E4:E11,G4:G11,C14:C34,E14:E34,G14:G34,C37:C61,E37:E61,G37:G61,I53:J61,C65:C95,E65:E95,G65:G95" _
).Select
Range("G65").Activate

Range( _
"C4:C11,E4:E11,G4:G11,C14:C34,E14:E34,G14:G34,C37:C61,E37:E61,G37:G61,I53:J61,C65:C95,E65:E95,G65:G95,C98:C123" _
).Select
Range("C98").Activate

Range( _
"C4:C11,E4:E11,G4:G11,C14:C34,E14:E34,G14:G34,C37:C61,E37:E61,G37:G61,I53:J61,C65:C95,E65:E95,G65:G95,C98:C123,E98:E123" _
).Select
Range("E98").Activate

Range( _
"C4:C11,E4:E11,G4:G11,C14:C34,E14:E34,G14:G34,C37:C61,E37:E61,G37:G61,I53:J61,C65:C95,E65:E95,G65:G95,C98:C123,E98:E123,G98:G123,I115:J123" _
).Select
Range("I115").Activate
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Range("C4").Select

Range("B3:H11").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlDash
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
'ActiveWindow.SmallScroll Down:=6
Range("B13:H34").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlDash
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
'ActiveWindow.SmallScroll Down:=27
Range("B36:H61").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlDash
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Range("B64:H95").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlDash
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

Range("B97:H123").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlDash
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

Range("I4:J61").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlDash
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

Range("I65:J123").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlDash
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Range("C3").Select
Unload Me
End Sub
 
Trier par date Trier par votes
Re : Problème macro (garder les couleurs de fond)

Re

merci pour ses explications mais sur le fichier eric4 j'ai mis un bouton macro en lui affectant la macor formcondi
si je supprime les bordure en C3:C10 au déclanchement de la macro elle ne se remette pas

Encore merci pour ton aide

A+
 
Vote positif 0 Vote négatif
Re : Problème macro (garder les couleurs de fond)

Re

Question: pourquoi veux tu supprimer les bordures avant de lancer la macro?

edit: c'est normal la plage C3:C10

correpond à la plage nommée PetriNOMSMATIN

et la macro commence par
[PetriNOMSMATIN].Copy

Donc si tu retires le format avant de copier, c'est logique
que lors du collage spécial/format
tu n'est plus le format de départ (qui avait le format conditionnel et les bordures)
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Problème macro (garder les couleurs de fond)

Re

regarde sur le fichier et selectionne deux noms "LAGARDE C REGNIER K" par exemple, tu utilise le couper et tu les colle ou tu veux , tu va voir que le format (bordure) disparait c'est pour cela que avant de faire une impression je suis obliger de refaire le format des cellules.
désole de ne pas t'avoir pas dit cela plus tôt.

cette feuille me permet de gerer le personnel et je bouge les personnes suivant le besoin

Merci encore
 
Vote positif 0 Vote négatif
Re : Problème macro (garder les couleurs de fond)

Re

Pourquoi copier pour déplacer


Tu seléctionnes ta cellule (en gardant le clic-gauche)
et tu déplaces ta cellule ou tu veux dans le tableau

C'est donc un cliquer/déplacer (drag n' drop en anglais)

et le tour est joué non?
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Problème macro (garder les couleurs de fond)

Re

je ne comprends pas sur un ordinateur j'arrive a deplacer comme tu le dis mais cela enlève la bordure c'est pour cela que j'ai enregistré cette macro

je suis chez moi et lorsque je veux depacer les cellules de cette maniere impossible la croix n'apparait pas

c'est quoi ce truc

Merci
A+
 
Vote positif 0 Vote négatif
Re : Problème macro (garder les couleurs de fond)

Bonsoir eduraiss, Staple, le forum,

Dans Outils/Options/Modifications regardes Glissement/Déplacement, il ne doit pas être coché, donc tu coches, sinon je ne vois pas.

Bonne soirée.

Jean-Pierre
 
Vote positif 0 Vote négatif
Re : Problème macro (garder les couleurs de fond)

Bonsoir JP le problème est régler merci

Staple1600 j'ai trouvé une solution avec mon code en me servant d'un msgbox qui averti que les couleurs vont disparaitre si on repond oui au message

Voila merci pour tout cette recherche a était des plus instructive

Cordialement

Eric
 
Vote positif 0 Vote négatif
Re : Problème macro (garder les couleurs de fond)

le voici toujours aussi long mais il fonctionne

Merci a vous

Private Sub CommandButton14_Click()
Application.ScreenUpdating = False
'impression de la zone Z2
res = MsgBox("VEUX TU QUE LES COULEURS DES CELLULES DISPARAISSENT?", vbYesNo)
If res = vbYes Then




Range("L3").Select
Selection.Copy

Range("C4:C11,E4:E11,G4:G11").Select
Range("G4").Activate

Range("C4:C11,E4:E11,G4:G11,C14:C34,E14:E34,G14:G34").Select
Range("G14").Activate

Range("C4:C11,E4:E11,G4:G11,C14:C34,E14:E34,G14:G34,C37:C61").Select
Range("C37").Activate

Range( _
"C4:C11,E4:E11,G4:G11,C14:C34,E14:E34,G14:G34,C37:C61,E37:E61,G37:G61,I53:J61") _
.Select
Range("I53").Activate

Range( _
"C4:C11,E4:E11,G4:G11,C14:C34,E14:E34,G14:G34,C37:C61,E37:E61,G37:G61,I53:J61,C65:C95" _
).Select
Range("C65").Activate

Range( _
"C4:C11,E4:E11,G4:G11,C14:C34,E14:E34,G14:G34,C37:C61,E37:E61,G37:G61,I53:J61,C65:C95,E65:E95" _
).Select
Range("E65").Activate

Range( _
"C4:C11,E4:E11,G4:G11,C14:C34,E14:E34,G14:G34,C37:C61,E37:E61,G37:G61,I53:J61,C65:C95,E65:E95,G65:G95" _
).Select
Range("G65").Activate

Range( _
"C4:C11,E4:E11,G4:G11,C14:C34,E14:E34,G14:G34,C37:C61,E37:E61,G37:G61,I53:J61,C65:C95,E65:E95,G65:G95,C98:C123" _
).Select
Range("C98").Activate

Range( _
"C4:C11,E4:E11,G4:G11,C14:C34,E14:E34,G14:G34,C37:C61,E37:E61,G37:G61,I53:J61,C65:C95,E65:E95,G65:G95,C98:C123,E98:E123" _
).Select
Range("E98").Activate

Range( _
"C4:C11,E4:E11,G4:G11,C14:C34,E14:E34,G14:G34,C37:C61,E37:E61,G37:G61,I53:J61,C65:C95,E65:E95,G65:G95,C98:C123,E98:E123,G98:G123,I115:J123" _
).Select
Range("I115").Activate
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Range("C4").Select


Range("B3:H11").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlDash
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
'ActiveWindow.SmallScroll Down:=6
Range("B13:H34").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlDash
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
'ActiveWindow.SmallScroll Down:=27
Range("B36:H61").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlDash
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Range("B64:H95").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlDash
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

Range("B97:H123").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlDash
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

Range("I4:J61").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlDash
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

Range("I65:J123").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlDash
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Range("C3").Select










Range("B2").Select
'ActiveWindow.SelectedSheets.PrintOut Copies:=9, Collate:=True

ElseIf res = vbNo Then
End If


Unload Me
End Sub
 
Vote positif 0 Vote négatif
Re : Problème macro (garder les couleurs de fond)

Re


Merci.


Je reste persuadé que ton code pourrait etre allégé

(en tout cas au moins du code généré par l'enregisteur de macro)


Mais comme ton code tel quel te satisfait et fonctionne

pour ma part j'en resterai la.


Bonne fin de soirée à tous.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Résolu(e)
Microsoft 365 Pouvez-vous traduire le code VBA SVP ?
Réponses
8
Affichages
432
MOLY_
M
M
  • Question Question
Autres Problème de sélection
Réponses
14
Affichages
484
fanch55
R
  • Question Question
XL 2016 Rendre plus lisible un code VBA
2
Réponses
23
Affichages
2 K
TooFatBoy
H
  • Question Question
XL 2016 Mettre des titres avec une mise en forme spécifique
Réponses
1
Affichages
625
vgendron
L
  • Question Question
Microsoft 365 Changement de couleurs de cellules dans plusieurs feuilles suite à une modification
Réponses
4
Affichages
798
lolo_excelbeginner
L
F
  • Résolu(e)
XL 2021 Créer Macro permettant d'indexer des nouveaux clients ? [Résolu]
4 5 6
Réponses
82
Affichages
4 K
fanou06
F
K
  • Question Question
XL 2019 Organiser le code VBA
Réponses
9
Affichages
1 K
Kevin38
K
  • Résolu(e)
XL 2016 Changer de feuille dans une macro
2
Réponses
28
Affichages
4 K
Staple1600
D
  • Résolu(e)
XL 2016 VBA Problème avec les bordures intérieures
Réponses
2
Affichages
2 K
danielco
D
M
  • Question Question
XL 2010 code VBA pour trier une colonne de mon tableau
Réponses
8
Affichages
2 K
Michelrib
M
T
  • Question Question
XL pour MAC Recherche date
Réponses
5
Affichages
2 K
tdenis
T
D
  • Question Question
XL 2010 Executer macro sur onglet actuel et pas un nom d'onglet défini
Réponses
1
Affichages
675
Compte Supprimé 979
C
L
  • Question Question
XL 2016 Macro et suppressions de lignes
Réponses
9
Affichages
1 K
fanfan38
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
732
tactic6
O
  • Question Question
XL 2016 Equilibrage gestion de comptes
Réponses
3
Affichages
963
obyone
O
S
  • Résolu(e)
XL 2013 Méthode de sélection alternative
Réponses
4
Affichages
2 K
stage_ferrit
S
H
  • Question Question
Instructions VBA pour mise en forme de cellules
Réponses
2
Affichages
1 K
Horusbk
H
C
  • Question Question
Autres Bordures tableau vba
Réponses
13
Affichages
3 K
Robert
C
  • Question Question
XL 2013 Macro ne fonctionne pas à cause du filtre lorsque que le feuille est protégée
Réponses
2
Affichages
1 K
cdric78
C
C
  • Question Question
XL 2010 Mise à jour macro et éxécution de celle ci à l'ouverture du doc
Réponses
2
Affichages
1 K
candice**
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…