MACRO 2

Bonsoir à tous,

Voici ma macro "mise à jour PROD" qui fonctionne bien :

Sub Formule()

Application.ScreenUpdating = False

With Range("C2:C39")

.Copy Destination:=Range("B2")

.Formula = "=IF(ISNA(VLOOKUP(A2,'DNNEES'!$A$2:$E$39,5,FALSE)),"""",VLOOKUP(A2,'DNNEES'!$A$2:$E$39,5,FALSE))"

.Value = .Value

.Borders(xlEdgeLeft).LineStyle = xlNone

End With

' Si les dimensions de la plage de changent pas

' Pas besoin de refaire les formules

' Les totaux seront actualisés automatiquement

Range("B40:C40").Formula = "=SUM(B2:B39)"

End Sub

A cette macro, j'aimerais ajouter ca : =IF(ISNA(VLOOKUP(A2,DNNEES!$A$2:$G$39,6,FALSE))=FALSE,

IF(VLOOKUP(A2,DNNEES!$A$2:$G$39,7,FALSE)=$G$3,VLOOKUP(A2,DNNEES!$A$2:$G$39,6,FALSE),D4),D4)

Qui correspond à la colonne "phase en cours" et "phase" dans mon tableau ci-joint.

Et ma macro "effacer colc" qui fonctionne bien aussi :

Sub Efface()

Range("C1:C40").ClearContents

Range("B1").Select

End Sub

Cette macro efface la colonne PROD M, j'aimerais qu'elle efface aussi la colonne "phase".

Pouvez-vous m'aider ???

Merci d'avance.

deton

Bonsoir,

J'ai fait ce que j'ai cru comprendre en PJ.

Note que si se sont "tes" macros comme tu dis, tu aurais du être capable de rajouter la formule et la ligne de suppression sans trop de soucis.

Et si je peux me permettre : sans VBA ça se fait très bien et c'est plus simple à maintenir ^^

Enfin après, les goûts , les couleurs, patati, patata !

MERCI POUR TA REPONSE !

la macro a ete fait par amadeus, qui est bien sur ce forum,

j'aurais pas du dire que c'était moi qui l'avait fait.

encore merci

Amicalement,

deton

Bonjour a tous !

A cette macro, dans le fichier deton-macro2-v1

Fait par Plop, dans son message ci-dessus.

J'aimerais ajouter une formule pour que quand

Je click sur le bouton de la macro;

Ça m'affiche une fenêtre avec la source de la

Mise a jour et ça marque " mise a jour termine".

Merci pour votre aide !

Amicalement

Deton