Discussion :

[lufy]

Bonjour,

Je préfère préciser que je suis un gros noob en VBA

Dans mon fichier de gestion je souhaite utiliser un menu déroulant pour copié des lignes sur d'autre feuille.

le menu déroulant comportant trois choix : "CHÈQUE","VIREMENT","ESPÈCES"
Mes 4 onglets sont nommer: "IMPAYER","CHÈQUE","VIREMENT","ESPÈCES"

Si "CHÈQUE" alors inserer les cellules B à H dans l'onglet "CHÈQUE"
Si "VIREMENT" alors inserer les cellules B à H dans l'onglet "VIREMENT"
Si "ESPÈCES" alors inserer les cellules B à H dans l'onglet "ESPÈCES"

Je précise je ne veut que copier les lignes surtout pas les effacer du premier onglet nommer "IMPAYER"

Etant donné que je modifie tous les jours ce fichier. Les nouvelles lignes doivent apparaître a la suite et doivent donc etre inserer vu que j ai des totaux dans les lignes en dessous.

J’espère que vous m'aurez compris.


Merci d'avance

[BENNASR]

Bonjour
vous n'avez pas indiqué ou se trouve l'information chèque, virement ou espèce ?? dans quelle colonne??
comment sont présentées tes données dans l'onglet IMPAYER en colonne A non ???

[lufy]

Bonjour
vous n'avez pas indiqué ou se trouve l'information chèque, virement ou espèce ?? dans quelle colonne??
comment sont présentées tes données dans l'onglet IMPAYER en colonne A non ???

Je compte utiliser la colonne A pour faire mon menu déroulant.

[BENNASR]

Voila une proposition qui envoie la ligne entière à la feuille appropriée

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Sub Fractionner()
'nettoyer les feuilles : chèque, virement et espèce
With Sheets("CHÈQUE")
.Select
Selection.ClearContents
End With
With Sheets("VIREMENT")
.Select
Selection.ClearContents
End With
With Sheets("ESPÈCES")
.Select
Selection.ClearContents
End With
 
'===========Répartir les données entre les diverses feuilles
Application.ScreenUpdating = False
Dim i As Long
Dim k As Integer
k = 1
 
With Sheets("IMPAYER")
i = .Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To i
If .Cells(i, 1) = "CHÈQUE" Then
 
  .Cells(i, 1).EntireRow.Copy
  Sheets("CHÈQUE").Activate
    Sheets("CHÈQUE").Range("A" & k).Select
    ActiveSheet.Paste
    k = k + 1
    End If
Next i
k = 1
For i = 2 To i
If .Cells(i, 1) = "VIREMENT" Then
  .Cells(i, 1).EntireRow.Copy
  Sheets("VIREMENT").Activate
    Sheets("VIREMENT").Range("A" & k).Select
    ActiveSheet.Paste
    k = k + 1
    End If
Next i
k = 1
For i = 2 To i
If .Cells(i, 1) = "ESPÈCES" Then
  .Cells(i, 1).EntireRow.Copy
  Sheets("ESPÈCES").Activate
    Sheets("ESPÈCES").Range("A" & k).Select
    ActiveSheet.Paste
    k = k + 1
    End If
Next i
End With
Application.ScreenUpdating = True
End Sub

J'espère que ça réponds à tes besoins

[lufy]

je vais tester merci d'avance

[Menhir]

Si j'ai bien compris ton besoin et le contenu de ce code, je te conseille de faire une sauvegarde avant de tester.

[Menhir]

Je précise je ne veut que copier les lignes surtout pas les effacer du premier onglet nommer "IMPAYER"

Pour copier des cellules, utiliser la méthode Copy de Range ou une combinaison de Copy et PasteSpecial.
https://msdn.microsoft.com/fr-fr/lib.../ff837760.aspx
https://msdn.microsoft.com/fr-fr/lib.../ff839476.aspx

Les nouvelles lignes doivent apparaître a la suite et doivent donc etre inserer vu que j ai des totaux dans les lignes en dessous.

Pour insérer une ligne, utiliser la méthode Insert de Range.
https://msdn.microsoft.com/fr-fr/lib.../ff840310.aspx
Pour trouver la dernière ligne remplie, utiliser la propriété End de Range.
https://msdn.microsoft.com/fr-fr/lib.../ff839539.aspx