DIDIER 19
Nouveau membre
Bonjour,
Débutant, je me lance dans la programmation.
J' ai un fichier dont la première feuille est nommé "all".
D'après cette feuille est extrait chaque fournisseur avec sa commande dans un onglet nominatif à chaque fois que j’inscris le nom du fournisseur dans la cellule B.
Ici commence le problème. Tous ce qui se trouve avant la cellule B se copie dans l'onglet attitré au fournisseur mais après impossible de résoudre le problème.
J'ai essayé de changer l'emplacement de le cellule fournisseur mais le problème reste inchangé ci ce n'est que je copie plus de cellule de la même ligne .
Je souhaiterai donc que lorsque je rentre mon fournisseur en cellule B, que les cellules qui se trouve avant et après sur la même ligne soit copier dans l' onglet fournisseur.
Le code que j' ai écrit est le suivant.
Merci à ceux qui pourront m' aider
Débutant, je me lance dans la programmation.
J' ai un fichier dont la première feuille est nommé "all".
D'après cette feuille est extrait chaque fournisseur avec sa commande dans un onglet nominatif à chaque fois que j’inscris le nom du fournisseur dans la cellule B.
Ici commence le problème. Tous ce qui se trouve avant la cellule B se copie dans l'onglet attitré au fournisseur mais après impossible de résoudre le problème.
J'ai essayé de changer l'emplacement de le cellule fournisseur mais le problème reste inchangé ci ce n'est que je copie plus de cellule de la même ligne .
Je souhaiterai donc que lorsque je rentre mon fournisseur en cellule B, que les cellules qui se trouve avant et après sur la même ligne soit copier dans l' onglet fournisseur.
Le code que j' ai écrit est le suivant.
C++:
Private Sub Worksheet_Change(ByVal sel As Range)
If sel.Count > 1 Then Exit Sub
If Not Intersect(sel, Range("B:B")) Is Nothing Then
Dim lig As Long
On Error Resume Next
lig = Sheets(sel.Text).Cells(Rows.Count, 1).End(xlUp).Row + 1
If Err.Number <> 0 Then
MsgBox "Votre état saisi ne correspond à aucune feuille"
Err.Clear
Exit Sub
End If
Rows(sel.Row).Copy Destination:=Sheets(sel.Text).Rows(lig)
On Error GoTo 0
End If
End Sub
Merci à ceux qui pourront m' aider