XL 2016 Comment copier un tableau a l'identique

  • Initiateur de la discussion Initiateur de la discussion fred0
  • 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 !

fred0

XLDnaute Nouveau
Bonjour a tous,
j'ai un tableau en Feuil1 et j'aimerais le copier a l'identique (mise en forme, couleur, etc ....) en Feuil2
Je ne trouve pas la procedure !!
merci
 

Pièces jointes

'controle de formule' est dans l'onglet developpeur ou souvent on y affecte une macro
Arf...arf... 🙂 C'est 'Contrôles de Formulaires' pas de Formule...

Sauf à construire une usine à gaz(chose que je ne ferai pas) faisant intervenir moultes API windows ou moultes pirouettes programmatiques vous n'aurez pas de liste respectant pour chaque item les formats et couleurs de votre liste de feuil1

Cordialement
 
Arf...arf... 🙂 C'est 'Contrôles de Formulaires' pas de Formule...

Sauf à construire une usine à gaz(chose que je ne ferai pas) faisant intervenir moultes API windows ou moultes pirouettes programmatiques vous n'aurez pas de liste respectant pour chaque item les formats et couleurs de votre liste de feuil1

Cordialement
desolé pour le mauvais terme !! 😇
merci pour le conseil mais vous m'avez déjà aider hier et c'est dans le but de créer un tableau ou je peux affecter des chantiers a mes ouvriers en fonction des jours du mois.
tel jour - tel chantier (et si j'ai un visuel coloré c'est un plus pour lire le planning)
 
Re,

Alors testez ceux-ci.

Feuil2!B3:B15 est une zone nommée "Encours", dans cette zone une liste de validation vous permet de choisir un chantier. Lorsque la cellule change, le format correspondant est récupéré à partir de la feuille Feuil1.
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim idx As Variant
    On Error GoTo FIN
    Application.EnableEvents = False ' important
   ' 
   ' Si une seule cellule a changé et quelle est dans la zone nommée 'EnCours'
    If Target.CountLarge = 1 And Not Intersect(Target, Range("EnCours")) Is Nothing Then
         ' Chercher la correspondance dans le tableau T_Chantiers    
         idx = Application.Match(Target.Text, Feuil1.Range("T_Chantiers[Chantiers]"), 0)
         ' Non trouvé, on met le style normal
        If IsError(idx) Then
            Target.Style = "Normal"
        Else
            ' Sinon on importe le format
            Feuil1.Range("T_Chantiers[Chantiers]").Cells(idx, 1).Copy
            Target.PasteSpecial xlPasteFormats
            Application.CutCopyMode = False
        End If
    End If
FIN:
    Application.EnableEvents = True
End Sub
cordialement
 

Pièces jointes

Re,

Alors testez ceux-ci.

Feuil2!B3:B15 est une zone nommée "Encours", dans cette zone une liste de validation vous permet de choisir un chantier. Lorsque la cellule change, le format correspondant est récupéré à partir de la feuille Feuil1.
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim idx As Variant
    On Error GoTo FIN
    Application.EnableEvents = False ' important
   '
   ' Si une seule cellule a changé et quelle est dans la zone nommée 'EnCours'
    If Target.CountLarge = 1 And Not Intersect(Target, Range("EnCours")) Is Nothing Then
         ' Chercher la correspondance dans le tableau T_Chantiers   
         idx = Application.Match(Target.Text, Feuil1.Range("T_Chantiers[Chantiers]"), 0)
         ' Non trouvé, on met le style normal
        If IsError(idx) Then
            Target.Style = "Normal"
        Else
            ' Sinon on importe le format
            Feuil1.Range("T_Chantiers[Chantiers]").Cells(idx, 1).Copy
            Target.PasteSpecial xlPasteFormats
            Application.CutCopyMode = False
        End If
    End If
FIN:
    Application.EnableEvents = True
End Sub
cordialement
c'est génial cette macro, merci beaucoup 🙏
🙏🙏
 
- 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

Réponses
4
Affichages
543
Réponses
14
Affichages
501
Réponses
15
Affichages
624
Réponses
2
Affichages
42
Réponses
3
Affichages
232
Retour