macro couper coller suivant conditions

[RVL]

Bonjour,

Je suis nouveau sur ce forum et j'aimerai realiser une macro pour couper et coller des cellules de la feuil1 sur la feuil2 si elles appartiennent a une liste en feuil3 par exemple...

RV

 

[Guest]

Re : macro couper coller suivant conditions

Bonjour et bienvenue sur XLD

Commence par lancer l'enregistreur de macro et fais ton couper coller manuellement. Ensuite tu pourras adapter. Donnes ton niveau en VBA.

A+

 

[RVL]

Re : macro couper coller suivant conditions

Mon niveau en VBA est trés faible, je modifie des macros sans grand succes....

Cdlt

RV

 

[Guest]

Re : macro couper coller suivant conditions

Re,

Et tu veux un copier coller complet (format et tout) ou seulement les valeurs?

A+

 

[RVL]

Re : macro couper coller suivant conditions

Re, un "COUPER COLLER" de la feuil1 vers la feuil2 (suivant conditions) avec le format d'origine.

Pour l'exemple les conditions= récuperer "DIDIER" et "MAURICE" qui ont le permis "A" et sont en"N° "1" en feuil3
a placer si possible en feuil2 sur la colonne en jaune ...
Compliqué ?

Cdlt,

RV

 

[Guest]

Re : macro couper coller suivant conditions

Re,

[COLOR=BLUE]Sub[/COLOR] f1versf2()
    [COLOR=BLUE]Dim[/COLOR] plage [COLOR=BLUE]As[/COLOR] Range, c [COLOR=BLUE]As[/COLOR] Range, cSource [COLOR=BLUE]As[/COLOR] Range
    [COLOR=GREEN]'Définition de la plage de cellules qui contient les noms en feuil3[/COLOR]
    [COLOR=BLUE]With[/COLOR] Sheets([i]"Feuil3"[/i])
        [COLOR=BLUE]Set[/COLOR] plage = .Range(.Range([i]"A4"[/i]), .Range([i]"A"[/i] & .Rows.Count).[COLOR=BLUE]End[/COLOR](xlUp))
    [COLOR=BLUE]End[/COLOR] [COLOR=BLUE]With[/COLOR]
    [COLOR=BLUE]For[/COLOR] [COLOR=BLUE]Each[/COLOR] c [COLOR=BLUE]In[/COLOR] plage
        [COLOR=BLUE]If[/COLOR] c(1, 2) = [i]"A"[/i] [COLOR=BLUE]And[/COLOR] c(1, 3) = 1 [COLOR=BLUE]Then[/COLOR]
        [COLOR=BLUE]Set[/COLOR] cSource = Sheets([i]"Feuil1"[/i]).UsedRange.Find(what:=c, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=[COLOR=BLUE]False[/COLOR])
        [COLOR=BLUE]If[/COLOR] [COLOR=BLUE]Not[/COLOR] cSource [COLOR=BLUE]Is[/COLOR] [COLOR=BLUE]Nothing[/COLOR] [COLOR=BLUE]Then[/COLOR]
            cSource.Copy Destination:=Sheets([i]"Feuil2"[/i]).Range([i]"I"[/i] & Application.Rows.Count).[COLOR=BLUE]End[/COLOR](xlUp)(2)
        [COLOR=BLUE]End[/COLOR] [COLOR=BLUE]If[/COLOR]
        [COLOR=BLUE]End[/COLOR] [COLOR=BLUE]If[/COLOR]
    [COLOR=BLUE]Next[/COLOR]
    Application.CutCopyMode = [COLOR=BLUE]False[/COLOR]
[COLOR=BLUE]End[/COLOR] [COLOR=BLUE]Sub[/COLOR]

A+

 

[RVL]

Re : macro couper coller suivant conditions

OK super mais "DIDIER" et "MAURICE" reste sur la feuil1 alors que j'aimerai les couper....

Cdlt,

RVL

 

[Guest]

Re : macro couper coller suivant conditions

Re,

Ben tu remplaces .Copy par .Cut

A+

 

[RVL]

Re : macro couper coller suivant conditions

Merci, j'adapte de suite cette macro à mon fichier.

pour le .cut evident ...(je ne suis vraiment qu'un novice).

Cdlt,

RVL

 

[RVL]

Re : macro couper coller suivant conditions

une petite derniere, j'ai un pB ça bloque lorsque je mais un MDP à mes feuilles ?

Cdlt,

RVL

 

[Guest]

Re : macro couper coller suivant conditions

Re,

He oui, normal.

Fais une recherche sur le forum sur la protection des feuilles et tente d'adapter la macro à ce que tu auras compris.

Puis reviens avec tes tentatives si cela echoue.

A+

 

[RVL]

Re : macro couper coller suivant conditions

Ok,

a+

rvl

 

[RVL]

Re : macro couper coller suivant conditions

Désolé ça ne marche pas,

j'ai mis ActiveSheet.Unprotect "mdp" au debut et ActiveSheet.Protect "mdp" à la fin de la macro mais sans resultat ?

Cdlt,

RVL

 

[Guest]

Re : macro couper coller suivant conditions

Re,

Sheets("Feuil1").UnProtect "mdp"
Sheets("Feuil2").UnProtect "mdp"
Sheets("Feuil3").UnProtect "mdp"

Et ensuite tu reprotège en fin de macro, chacune des feuilles sur lesquelles la macro travaille.

Solution 2

tu protèges tes feuilles par une macro avec le paramètre UserInterfaceOnly=True

Sheets("Feuil1").Protect PassWord:="mdp", UserInterfaceOnly:= True

Comme ceci les macros pourront agir sur les feuilles sans avoir besoin de les dé-protéger/protéger à chaque fois.

Regarde l'aide (F1) sur .Protect

A+