Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ru-th
Salut
supposons la saisie dans un classeur dans les colonnes A à C de la feuil2 et report dans le classeur 2 feuil1
à mettre dans le module de la feuille Feuil2 du classeur de saisie Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 And Application.CountA(Range("a" & Target.Row & ":c" & Target.Row)) = 3 Then ligne Workbooks("classeur2.xls").Sheets("Feuil1").Range("a65536").End(xlUp).Row + 1 Workbooks("classeur2.xls").Sheets("Feuil1").Range("a" & ligne & ":c" & ligne).Value = _ ActiveWorkbook.Sheets("feuil2").Range("a" & Target.Row & ":c" & Target.Row).Value End If End Sub
(attention aux sauts de lignes intempestifs) a+ rural thierry
"Patrick" a écrit dans le message de news:
Bonjour,
Je souhaite faire un tableau type : Nom, prenom, n° fct etc...en A, B, C etc... Ce tableau(A) doit etre remplis par :
- Un formulaire(B) creer sur word ou excel
Je souhaite qu'a chaque creation d'un client par le formulaire B, les donnees soient stockees dans le tableau A.
Merci de votre aides. Bonne journee
Salut
supposons la saisie dans un classeur dans les colonnes A à C de la feuil2
et report dans le classeur 2 feuil1
à mettre dans le module de la feuille Feuil2 du classeur de saisie
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Application.CountA(Range("a" & Target.Row & ":c" &
Target.Row)) = 3 Then
ligne Workbooks("classeur2.xls").Sheets("Feuil1").Range("a65536").End(xlUp).Row +
1
Workbooks("classeur2.xls").Sheets("Feuil1").Range("a" & ligne & ":c" &
ligne).Value = _
ActiveWorkbook.Sheets("feuil2").Range("a" & Target.Row & ":c" &
Target.Row).Value
End If
End Sub
(attention aux sauts de lignes intempestifs)
a+
rural thierry
"Patrick" <Patrick@discussions.microsoft.com> a écrit dans le message de
news: 52C21C40-197F-4AB2-B345-040A55B90D73@microsoft.com...
Bonjour,
Je souhaite faire un tableau type : Nom, prenom, n° fct etc...en A, B, C
etc...
Ce tableau(A) doit etre remplis par :
- Un formulaire(B) creer sur word ou excel
Je souhaite qu'a chaque creation d'un client par le formulaire B, les
donnees soient stockees dans le tableau A.
supposons la saisie dans un classeur dans les colonnes A à C de la feuil2 et report dans le classeur 2 feuil1
à mettre dans le module de la feuille Feuil2 du classeur de saisie Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 And Application.CountA(Range("a" & Target.Row & ":c" & Target.Row)) = 3 Then ligne Workbooks("classeur2.xls").Sheets("Feuil1").Range("a65536").End(xlUp).Row + 1 Workbooks("classeur2.xls").Sheets("Feuil1").Range("a" & ligne & ":c" & ligne).Value = _ ActiveWorkbook.Sheets("feuil2").Range("a" & Target.Row & ":c" & Target.Row).Value End If End Sub
(attention aux sauts de lignes intempestifs) a+ rural thierry
"Patrick" a écrit dans le message de news:
Bonjour,
Je souhaite faire un tableau type : Nom, prenom, n° fct etc...en A, B, C etc... Ce tableau(A) doit etre remplis par :
- Un formulaire(B) creer sur word ou excel
Je souhaite qu'a chaque creation d'un client par le formulaire B, les donnees soient stockees dans le tableau A.
