XL 2019 Mise en forme conditionnelle + VBA

[mrzaitsev90]

Bonjour a tous,

J'ai besoin de votre aide sur un fichier joint.

Mon souhait de mise en forme conditionnelle est inscrit en bas du tableau sur les cellules I25 à I27. Je suis un peu rouillé, et je n'y arrive pas vraiment.

Ensuite, il me faudrait 2 boutons macro pour copier des tableaux automatiquement sur la première colonne vide sur la droite. (souhait inscrit en cellule G29)

cela me fera gagner du temps.

Merci l'équipe !

Cordialement.

MrZaitsev90

 

[JHA]

Bonjour à tous,

Un essai pour les MFC

JHA

 

[sylvanu]

Bonsoir mrzaitsev, JHA,

insérer 2 boutons macro permettant de copier soit les cellules de G54 à V69 soit de W54 à AH69

On copie quoi où ?
G54:V69 vers G6:V21 ? ou le contraire ?
W54:AH69 vers W6:AH21 ? ou le contraire ?
Ou autre chose ?

 

[mrzaitsev90]

Bonsoir mrzaitsev, JHA,

On copie quoi où ?
G54:V69 vers G6:V21 ? ou le contraire ?
W54:AH69 vers W6:AH21 ? ou le contraire ?
Ou autre chose ?

Hello Sylvanu,

En fait il faudrait un bouton macro qui copierait les cellules de G54 à V69 sur la prochaine cellule vide à partir de AI6 et un autre bouton macro qui copierait les cellules de W54 à AH69 sur la prochaine cellule vide à partir de AI6. En résumé avoir la capacité de faire soit le tableau jaune soit le vert sur la prochaine cellule vide à la suite des tableaux du haut. Est ce plus clair ainsi ?

 

[sylvanu]

Bonsoir,
En repartant du fichier de JHA avec les MFC, un essai en PJ avec :

Sub DupliquerJaune()
    [TabloJaune].Copy: Duplique
End Sub
Sub DupliquerVert()
    [TabloVert].Copy: Duplique
End Sub
Sub Duplique()
    Col = Application.CountIf([G8:XAA8], "<>") + 7
    Cells(6, Col).Select: ActiveSheet.Paste: [A1].Select
End Sub

 

[mrzaitsev90]

Bonsoir,
En repartant du fichier de JHA avec les MFC, un essai en PJ avec :

Sub DupliquerJaune()
    [TabloJaune].Copy: Duplique
End Sub
Sub DupliquerVert()
    [TabloVert].Copy: Duplique
End Sub
Sub Duplique()
    Col = Application.CountIf([G8:XAA8], "<>") + 7
    Cells(6, Col).Select: ActiveSheet.Paste: [A1].Select
End Sub

Ecoutes, je fais quelques tests et te confirmes ca. il faut juste que je copies les mises en forme conditionnelle dans les 2 tableaux "source". Merci bcp pour ton aide en tout cas

 

[sylvanu]

il faut juste que je copies les mises en forme conditionnelle dans les 2 tableaux "source".

A vérifier, mais c'est déjà fait.

 

[mrzaitsev90]

A vérifier, mais c'est déjà fait.

Ok je te confirme que c'est tout bon je te dois quelque chose ? Merci beaucoup