Copie d'une selection sous condition

[karinette]

Bonsoir au forum,
j'ai préféré ouvrir un nouveau sujet sur mon collage particulier ...
L'idée serait de pouvoir coller dans une plage, une autre plage (couleur et contenu), mais que ce soit innactif dans les cellules avec "F1", "GR8" et "TR".
Un peu dans l'esprit de la macro de Hasco
https://www.excel-downloads.com/threads/collage-sous-condition-particulier.122280/

J'ai essayé de modifier le code mais sans succès ... 🙁

Merci et encore bravo pour le forum .....

 

[Robert]

Re : Copie d'une selection sous condition

Bonsr Karinette, bonsoir le forum,

Peut-être ce code te conviendra-t-il :

Sub Macro1()
Dim pl As Range 'déclare la variable pl (PLage)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim x As Byte 'déclare la variable x
Set pl = Range("B1:B24") 'définit la variable pl
For x = 0 To 4 'boucle 1 : sur les 5 mini colonnes (B, C, D, E, F) de 1 à 24
    For Each cel In pl.Offset(0, x) 'boucle 2 : sur chaque cellule cel de la mini colonne
        Select Case cel.Offset(0, 6).Value 'agit en fonction de la 6ème cellule à droite de cel
            Case "F1", "TR", "GR8" 'cas "F1", "TR",  "GR8" (rien ne se passe)
            Case Else 'autres cas
                cel.Copy Destination:=cel.Offset(0, 6) 'recopie la cellule cel 6 colonnes à sa droite
        End Select 'fin de l'action selon le cas
    Next cel 'prochaine cellule cel de la boucle 2
Next x 'prochaine mini colonne de la boucle 1
End Sub

 

[karinette]

Re : Copie d'une selection sous condition

C'est parfait ...
Juste une petite question de novice :
Peut on le faire à partir d'une feuille differente ... En gros, sellectionner la plage sur "BASE" et appliquer le collage sur "Feuill2" ??
Ca serait super ....
J'ai modifié Set pl = Range("B1:B24") par Set pl = Range("BASE!B1:B24") mais il doit manquer des choses pour l'appliquer ...

 

[ROGER2327]

Re : Copie d'une selection sous condition

Bonjour karinette

Pour la syntaxe, revoir ceci, peut-être ?

Bonjour à tous

Une suggestion :

[COLOR="DarkSlateGray"]Sub toto()
Dim i As Long
   For i = Sheets("Feuil1").Cells(Rows.Count, 13).End(xlUp).Row To 1 Step -1
      If Sheets("Feuil1").Cells(i, 13).Value = "CLIENTS" Then
        [B][COLOR="Sienna"] Sheets("Feuil1").Rows(i).Cut Sheets("Feuil2").Rows((Sheets("Feuil2").Cells(Rows.Count, 13).End(xlUp).Row + 1))[/COLOR][/B]
         Sheets("Feuil1").Rows(i).Delete
      End If
   Next i
End Sub[/COLOR]

ROGER2327

ROGER2327

 

[Robert]

Re : Copie d'une selection sous condition

Bonjour le fil, bonjour le forum,

Roger j'ai pas bien compris ton code mais j'avoue l'avoir à peine regardé sans le tester...
Karinette essaie comme ça :

Set pl = Sheets("BASE").Range("B1:B24")

 

[karinette]

Re : Copie d'une selection sous condition

Bonjour à tous, j'ai essayé la modification comme il suit :

Sub Macro1()
Dim pl As Range 'déclare la variable pl (PLage)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim x As Byte 'déclare la variable x
Set pl = Sheets("BASE").Range("B1:B24") 'définit la variable pl
For x = 0 To 4 'boucle 1 : sur les 5 mini colonnes (B, C, D, E, F) de 1 à 24
For Each cel In pl.Offset(0, x) 'boucle 2 : sur chaque cellule cel de la mini colonne
Select Case cel.Offset(0, 6).Value 'agit en fonction de la 6ème cellule à droite de cel
Case "F1", "TR", "GR8" 'cas "F1", "TR", "GR8" (rien ne se passe)
Case Else 'autres cas
cel.Copy Destination:=cel.Offset(0, 6) 'recopie la cellule cel 6 colonnes à sa droite
End Select 'fin de l'action selon le cas
Next cel 'prochaine cellule cel de la boucle 2
Next x 'prochaine mini colonne de la boucle 1
End Sub

Par contre, ça marche sur la feuille "BASE", mais lorsque je le lance sur "Feuil1", rien ne se passe ..... 😕

 

[ROGER2327]

Re : Copie d'une selection sous condition

Re...

Sur une autre feuille que la feuille BASE, par exemple sur un feuille nommée Autre_feuille, il faut remplacer

[COLOR="DarkSlateGray"]Set pl = Sheets("[B]BASE[/B]").Range("B1:B24")[/COLOR]

par

[COLOR="DarkSlateGray"]Set pl = Sheets("[B]Autre_feuille[/B]").Range("B1:B24")[/COLOR]

ROGER2327

 

[karinette]

Re : Copie d'une selection sous condition

Je crois que je me suis mal fait comprendre, j'ai bien compris la macro de ROGER2327, mais ce que j'essaye de faire, c'est copier une plage dans "BASE" et coller avec le tri sur une autre feuille ...

 

[Robert]

Re : Copie d'une selection sous condition

Bonsoir le fil, bonsoir le forum,

Il est regrettable, Klarinette, que tu mettes un fichier en pièce jointe qui ne correspond pas à tes attentes. Comment te répondre correctement ? Je peux adapter la macro que je t'ai proposée mais j'aimerais que tu renvoies un fichier avec les plages de départ et d'arrivée clairement spécifiées...

 

[karinette]

Re : Copie d'une selection sous condition

Désolé, pour le fichier .... C'est parceque en fait, la première macro que tu m'as proposé etait parfaite, je me demandais simplement si elle pouvait être modifiée.
Je suis confuse 🙁
Mon manque d'experience en VB me laissait penser que la modif était simple ...
J'ai remis un fichier plus clair ...

 

[Robert]

Re : Copie d'une selection sous condition

Bonsoir le fil, bonsoir le forum,

En pièce jointe ton fichier modifié. J'ai rajouté la variable dest (DESTination) qui correspond à la cellule de départ décalée de deux colonnes dans l'onglet Feuil2.

 

[karinette]

Re : Copie d'une selection sous condition

Alors là, super ....
Un grand merci, Robert 🙂