Discussion :

[steeeve34]

Bonjour à tous,

J'utilise une macro qui me permet de copier une ligne dans un autre onglet si la cellule de la colonne "H" est non vide. Jusque là tout fonctionne à merveille, mais j'aimerais aller un peu plus loin. Je voudrais que si par exemple la valeur de la colonne H = A, il recopie la ligne dans l'onglet A, si la valeur est B il recopie sur l'onglet B et ainsi de suite. Voici le code que j'utilise pour le moment et qui me permet de recopier une ligne s'il y a une valeur dans la collone H.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub FiltreLulu()
 
  Dim Lig     As Long
  Dim Col     As String
  Dim NbrLig  As Long
  Dim NumLig  As Long
 
  Sheets("A").Activate ' feuille de destination
 
  Col = "H"                 ' colonne de la donnée non vide à tester
  NumLig = 1
  With Sheets("Feuil1")     ' feuille source
  NbrLig = .Cells(65536, Col).End(xlUp).Row
  For Lig = 1 To NbrLig
    If .Cells(Lig, Col).Value <> "" Then
      .Cells(Lig, Col).EntireRow.Copy
      NumLig = NumLig + 1
      Cells(NumLig, 1).Select
      ActiveSheet.Paste
    End If
  Next
  End With
 
End Sub

Merci d'avance pour votre aide.

[mjpmjp]

bonjour,

si par exemple la valeur de la colonne H = A, il recopie la ligne dans l'onglet A

la réponse est dans la question.
tout le truc,machin,chose...est de savoir définir H = A, comment savoir, qu'est ce qui fait que...la valeur de A doit aller, est en rapport, dans l'onglet A.
pour le mécanisme d’aiguillage
--> une variable "Destination"=1,2, ou a,b
et le code de l'aiguillage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Select Case Destination
   Case 1,a,UCase(a),...
       NomDeOnglet="A"
   Case 2,b,UCase(b),...
       NomDeOnglet="B"
End Select

@+JP

[RyuAutodidacte]

Bonjour,

Plus simple, schématiquement :
Si la cellule de la colonne H est vide alors
Copier la ligne de la feuille 1 dans l'onglet Toto (par exemple, ligne à définir; donc faire attention aux pointages)
Sinon
Si la cellule de la colonne H est égal à la valeur cellule lambda (A, B, C, etc …) alors
La ligne de l'onglet(valeur de la cellule lambda) = à la ligne concernée de la feuille 1

[Marc-L]

Bonjour,

tout dépend déjà du nombre de lignes à traiter et de celui des onglets en destination :
plus il est important pour l'un ou l'autre plus ce sera long en traitant ligne par ligne !

Hors comme déjà démontré dans des discussions de ce forum, dans le cas d'un nombre important,
il suffit juste d'utiliser une fonctionnalité d'Excel : les filtres avancés !

Un premier filtre avancé pour extraire la liste des onglets de destination sans doublon dans une zone libre de la feuille
puis à partir de cette liste, pour chaque onglet de destination, vérifier s'il existe (fonction ESTREF de feuille de calculs)
sinon le créer, la copie des données pour chaque onglet pouvant être effectuée en une instruction via un filtre avancé !

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …