Copie d'une selection sous condition

Robert

XLDnaute Barbatruc

Repose en paix

• 16 Juin 2009

• #2

Re : Copie d'une selection sous condition

Bonsr Karinette, bonsoir le forum,

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

Code:

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

 

Pièces jointes

• karinette_v03.xls

  33.5 KB · Affichages: 47

Vote positif 0 Vote négatif

K

karinette

XLDnaute Occasionnel

• 17 Juin 2009

• #3

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 ...

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 17 Juin 2009

• #4

Re : Copie d'une selection sous condition

Bonjour karinette

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

ROGER2327 à dit:

Bonjour à tous

Une suggestion :

Code:

[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

Cliquez pour agrandir...

ROGER2327

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 17 Juin 2009

• #5

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 :

Code:

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

 

Vote positif 0 Vote négatif

K

karinette

XLDnaute Occasionnel

• 17 Juin 2009

• #6

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 ..... 😕

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 17 Juin 2009

• #7

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

Code:

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

par

Code:

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

ROGER2327

 

Vote positif 0 Vote négatif

K

karinette

XLDnaute Occasionnel

• 17 Juin 2009

• #8

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 ...

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 17 Juin 2009

• #9

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...

 

Vote positif 0 Vote négatif

K

karinette

XLDnaute Occasionnel

• 17 Juin 2009

• #10

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 ...

 

Pièces jointes

• karinette2(1).xls

  30.5 KB · Affichages: 61

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 17 Juin 2009

• #11

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.

 

Pièces jointes

• karinette_v04.xls

  35.5 KB · Affichages: 67

Dernière édition: 17 Juin 2009

Vote positif 0 Vote négatif

K

karinette

XLDnaute Occasionnel

• 17 Juin 2009

• #12

Re : Copie d'une selection sous condition

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

 

Vote positif 0 Vote négatif