Copier des valeurs ET les objets liés à la cellule avec une macro

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

fxbelot

XLDnaute Nouveau
Bonjours à tous,

Je suis arrivé grâce à l'aide précieuse du Forum à atteindre presque mon but. Cependant une chose manque; La macro que j'utilise pour diviser une feuille en plusieurs feuilles copie uniquement les valeurs mais ne tient pas compte des objets (liste de validation) or, étant donné le nombre important de tabs que je dois créer le refaire manuellement n'est pas simple.

Le fichier ci-dessous va aider à comprendre le problème :
Dans la feuille 1 les données avec en colonne C une liste de validation pour choisir la valeur des champs. Les autres feuilles sont générées par la macro.
C'est cette même liste de validation que j'aimerais trouver sur les pages créer par la macro.

Merci d'avance pour votre aide.
 

Pièces jointes

Re : Copier des valeurs ET les objets liés à la cellule avec une macro

Bonjour Fxbelo, bonjour le forum,

le code modifié :
Code:
       For C = 1 To UBound(Tabtemp, 2)
                     .Cells(Derlgn, C) = Tabtemp(L, C)
                     If Derlgn > 1 And C = 3 Then 'ligne ajoutée
                        With .Cells(Derlgn, C).Validation 'ligne ajoutée
                            .Delete 'ligne ajoutée
                            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                                xlBetween, Formula1:="Moteur,Porte,Sièges" 'ligne ajoutée
                        End With 'ligne ajoutée
                    End If 'ligne ajoutée
                 Next
 
- 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

Retour