Bonjour à tous,
Un formulaire de saisie d'une part : onglet Formulaire
Un tableau de données d'autre part : onglet DATA
L'objectif est de transférer les données du formulaire au tableau.
Ci-après les codes de la macro.
Comment rechercher la cellule contenant la variable x à la douzième ligne
identifiée par ???
Merci beaucoup de votre aide précieuse,
Céline
--------------------------------------------------------------------------
Sub TransfererDonnees()
'
'
' Créer une variable avec le numéro inscrit dans le cellule B3 de l'onglet
Formulaire
Dim NoEmploye
NomVariable =
Workbooks("2009.xls").Sheets("Formulaire").Range("B3").Value
' Sélectionner l'onglet DATA
ActiveWorkbook.Sheets("DATA").Select
' Sélectionner la colonne A
Columns("A:A").Select
' Rechercher la cellule contenant le contenu de la variable NoEmploye
???
' Créer une variable avec le numéro de ligne de la cellule trouvée
y = Selection.Row
' Copier le contenu de la cellule B8 de l'onglet Formulaire
ActiveWorkbook.Sheets("Formulaire").Select
Range("B8").Select
Selection.Copy
' Coller dans la cellule EY de l'onglet DATA. Y étant la variable
ActiveWorkbook.Sheets("DATA").Select
Range("E" & y).Select
ActiveSheet.Paste
End Sub
Bonjour à tous,
Un formulaire de saisie d'une part : onglet Formulaire
Un tableau de données d'autre part : onglet DATA
L'objectif est de transférer les données du formulaire au tableau.
Ci-après les codes de la macro.
Comment rechercher la cellule contenant la variable x à la douzième ligne
identifiée par ???
Merci beaucoup de votre aide précieuse,
Céline
--------------------------------------------------------------------------
Sub TransfererDonnees()
'
'
' Créer une variable avec le numéro inscrit dans le cellule B3 de l'onglet
Formulaire
Dim NoEmploye
NomVariable =
Workbooks("2009.xls").Sheets("Formulaire").Range("B3").Value
' Sélectionner l'onglet DATA
ActiveWorkbook.Sheets("DATA").Select
' Sélectionner la colonne A
Columns("A:A").Select
' Rechercher la cellule contenant le contenu de la variable NoEmploye
???
' Créer une variable avec le numéro de ligne de la cellule trouvée
y = Selection.Row
' Copier le contenu de la cellule B8 de l'onglet Formulaire
ActiveWorkbook.Sheets("Formulaire").Select
Range("B8").Select
Selection.Copy
' Coller dans la cellule EY de l'onglet DATA. Y étant la variable
ActiveWorkbook.Sheets("DATA").Select
Range("E" & y).Select
ActiveSheet.Paste
End Sub
Bonjour à tous,
Un formulaire de saisie d'une part : onglet Formulaire
Un tableau de données d'autre part : onglet DATA
L'objectif est de transférer les données du formulaire au tableau.
Ci-après les codes de la macro.
Comment rechercher la cellule contenant la variable x à la douzième ligne
identifiée par ???
Merci beaucoup de votre aide précieuse,
Céline
--------------------------------------------------------------------------
Sub TransfererDonnees()
'
'
' Créer une variable avec le numéro inscrit dans le cellule B3 de l'onglet
Formulaire
Dim NoEmploye
NomVariable =
Workbooks("2009.xls").Sheets("Formulaire").Range("B3").Value
' Sélectionner l'onglet DATA
ActiveWorkbook.Sheets("DATA").Select
' Sélectionner la colonne A
Columns("A:A").Select
' Rechercher la cellule contenant le contenu de la variable NoEmploye
???
' Créer une variable avec le numéro de ligne de la cellule trouvée
y = Selection.Row
' Copier le contenu de la cellule B8 de l'onglet Formulaire
ActiveWorkbook.Sheets("Formulaire").Select
Range("B8").Select
Selection.Copy
' Coller dans la cellule EY de l'onglet DATA. Y étant la variable
ActiveWorkbook.Sheets("DATA").Select
Range("E" & y).Select
ActiveSheet.Paste
End Sub
Bonjour à tous,
Un formulaire de saisie d'une part : onglet Formulaire
Un tableau de données d'autre part : onglet DATA
L'objectif est de transférer les données du formulaire au tableau.
Ci-après les codes de la macro.
Comment rechercher la cellule contenant la variable x à la douzième ligne
identifiée par ???
Merci beaucoup de votre aide précieuse,
Céline
--------------------------------------------------------------------------
Sub TransfererDonnees()
'
'
' Créer une variable avec le numéro inscrit dans le cellule B3 de l'onglet
Formulaire
Dim NoEmploye
NomVariable =
Workbooks("2009.xls").Sheets("Formulaire").Range("B3").Value
' Sélectionner l'onglet DATA
ActiveWorkbook.Sheets("DATA").Select
' Sélectionner la colonne A
Columns("A:A").Select
' Rechercher la cellule contenant le contenu de la variable NoEmploye
???
' Créer une variable avec le numéro de ligne de la cellule trouvée
y = Selection.Row
' Copier le contenu de la cellule B8 de l'onglet Formulaire
ActiveWorkbook.Sheets("Formulaire").Select
Range("B8").Select
Selection.Copy
' Coller dans la cellule EY de l'onglet DATA. Y étant la variable
ActiveWorkbook.Sheets("DATA").Select
Range("E" & y).Select
ActiveSheet.Paste
End Sub
Bonjour à tous,
Un formulaire de saisie d'une part : onglet Formulaire
Un tableau de données d'autre part : onglet DATA
L'objectif est de transférer les données du formulaire au tableau.
Ci-après les codes de la macro.
Comment rechercher la cellule contenant la variable x à la douzième ligne
identifiée par ???
Merci beaucoup de votre aide précieuse,
Céline
--------------------------------------------------------------------------
Sub TransfererDonnees()
'
'
' Créer une variable avec le numéro inscrit dans le cellule B3 de l'onglet
Formulaire
Dim NoEmploye
NomVariable =
Workbooks("2009.xls").Sheets("Formulaire").Range("B3").Value
' Sélectionner l'onglet DATA
ActiveWorkbook.Sheets("DATA").Select
' Sélectionner la colonne A
Columns("A:A").Select
' Rechercher la cellule contenant le contenu de la variable NoEmploye
???
' Créer une variable avec le numéro de ligne de la cellule trouvée
y = Selection.Row
' Copier le contenu de la cellule B8 de l'onglet Formulaire
ActiveWorkbook.Sheets("Formulaire").Select
Range("B8").Select
Selection.Copy
' Coller dans la cellule EY de l'onglet DATA. Y étant la variable
ActiveWorkbook.Sheets("DATA").Select
Range("E" & y).Select
ActiveSheet.Paste
End Sub
Bonjour à tous,
Un formulaire de saisie d'une part : onglet Formulaire
Un tableau de données d'autre part : onglet DATA
L'objectif est de transférer les données du formulaire au tableau.
Ci-après les codes de la macro.
Comment rechercher la cellule contenant la variable x à la douzième ligne
identifiée par ???
Merci beaucoup de votre aide précieuse,
Céline
--------------------------------------------------------------------------
Sub TransfererDonnees()
'
'
' Créer une variable avec le numéro inscrit dans le cellule B3 de l'onglet
Formulaire
Dim NoEmploye
NomVariable =
Workbooks("2009.xls").Sheets("Formulaire").Range("B3").Value
' Sélectionner l'onglet DATA
ActiveWorkbook.Sheets("DATA").Select
' Sélectionner la colonne A
Columns("A:A").Select
' Rechercher la cellule contenant le contenu de la variable NoEmploye
???
' Créer une variable avec le numéro de ligne de la cellule trouvée
y = Selection.Row
' Copier le contenu de la cellule B8 de l'onglet Formulaire
ActiveWorkbook.Sheets("Formulaire").Select
Range("B8").Select
Selection.Copy
' Coller dans la cellule EY de l'onglet DATA. Y étant la variable
ActiveWorkbook.Sheets("DATA").Select
Range("E" & y).Select
ActiveSheet.Paste
End Sub
Bonjour à tous,
Un formulaire de saisie d'une part : onglet Formulaire
Un tableau de données d'autre part : onglet DATA
L'objectif est de transférer les données du formulaire au tableau.
Ci-après les codes de la macro.
Comment rechercher la cellule contenant la variable x à la douzième ligne
identifiée par ???
Merci beaucoup de votre aide précieuse,
Céline
--------------------------------------------------------------------------
Sub TransfererDonnees()
'
'
' Créer une variable avec le numéro inscrit dans le cellule B3 de
l'onglet Formulaire
Dim NoEmploye
NomVariable =
Workbooks("2009.xls").Sheets("Formulaire").Range("B3").Value
' Sélectionner l'onglet DATA
ActiveWorkbook.Sheets("DATA").Select
' Sélectionner la colonne A
Columns("A:A").Select
' Rechercher la cellule contenant le contenu de la variable NoEmploye
???
' Créer une variable avec le numéro de ligne de la cellule trouvée
y = Selection.Row
' Copier le contenu de la cellule B8 de l'onglet Formulaire
ActiveWorkbook.Sheets("Formulaire").Select
Range("B8").Select
Selection.Copy
' Coller dans la cellule EY de l'onglet DATA. Y étant la variable
ActiveWorkbook.Sheets("DATA").Select
Range("E" & y).Select
ActiveSheet.Paste
End Sub
Bonjour à tous,
Un formulaire de saisie d'une part : onglet Formulaire
Un tableau de données d'autre part : onglet DATA
L'objectif est de transférer les données du formulaire au tableau.
Ci-après les codes de la macro.
Comment rechercher la cellule contenant la variable x à la douzième ligne
identifiée par ???
Merci beaucoup de votre aide précieuse,
Céline
--------------------------------------------------------------------------
Sub TransfererDonnees()
'
'
' Créer une variable avec le numéro inscrit dans le cellule B3 de
l'onglet Formulaire
Dim NoEmploye
NomVariable =
Workbooks("2009.xls").Sheets("Formulaire").Range("B3").Value
' Sélectionner l'onglet DATA
ActiveWorkbook.Sheets("DATA").Select
' Sélectionner la colonne A
Columns("A:A").Select
' Rechercher la cellule contenant le contenu de la variable NoEmploye
???
' Créer une variable avec le numéro de ligne de la cellule trouvée
y = Selection.Row
' Copier le contenu de la cellule B8 de l'onglet Formulaire
ActiveWorkbook.Sheets("Formulaire").Select
Range("B8").Select
Selection.Copy
' Coller dans la cellule EY de l'onglet DATA. Y étant la variable
ActiveWorkbook.Sheets("DATA").Select
Range("E" & y).Select
ActiveSheet.Paste
End Sub
Bonjour à tous,
Un formulaire de saisie d'une part : onglet Formulaire
Un tableau de données d'autre part : onglet DATA
L'objectif est de transférer les données du formulaire au tableau.
Ci-après les codes de la macro.
Comment rechercher la cellule contenant la variable x à la douzième ligne
identifiée par ???
Merci beaucoup de votre aide précieuse,
Céline
--------------------------------------------------------------------------
Sub TransfererDonnees()
'
'
' Créer une variable avec le numéro inscrit dans le cellule B3 de
l'onglet Formulaire
Dim NoEmploye
NomVariable =
Workbooks("2009.xls").Sheets("Formulaire").Range("B3").Value
' Sélectionner l'onglet DATA
ActiveWorkbook.Sheets("DATA").Select
' Sélectionner la colonne A
Columns("A:A").Select
' Rechercher la cellule contenant le contenu de la variable NoEmploye
???
' Créer une variable avec le numéro de ligne de la cellule trouvée
y = Selection.Row
' Copier le contenu de la cellule B8 de l'onglet Formulaire
ActiveWorkbook.Sheets("Formulaire").Select
Range("B8").Select
Selection.Copy
' Coller dans la cellule EY de l'onglet DATA. Y étant la variable
ActiveWorkbook.Sheets("DATA").Select
Range("E" & y).Select
ActiveSheet.Paste
End Sub
bonjour Céline,
contente de te revoir, bon retour sur le groupe,
Sub Formulaire()
Dim NoEmploye
NomVariable =
Workbooks("2009.xls").Sheets("Formulaire").Range("B3").Value
With ActiveWorkbook
With .Sheets("DATA").Range("A:A")
y = .Find(What:=NomVariable, After:¬tiveCell, LookIn:=xlValues,
LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
MatchCase _
:úlse, SearchFormat:úlse).Row
End With
.Sheets("Formulaire").Range("B8").Copy .Sheets("DATA").Range("E" & y)
End With
End Sub
isabelle
Céline Brien a écrit :Bonjour à tous,
Un formulaire de saisie d'une part : onglet Formulaire
Un tableau de données d'autre part : onglet DATA
L'objectif est de transférer les données du formulaire au tableau.
Ci-après les codes de la macro.
Comment rechercher la cellule contenant la variable x à la douzième ligne
identifiée par ???
Merci beaucoup de votre aide précieuse,
Céline
--------------------------------------------------------------------------
Sub TransfererDonnees()
'
'
' Créer une variable avec le numéro inscrit dans le cellule B3 de
l'onglet Formulaire
Dim NoEmploye
NomVariable =
Workbooks("2009.xls").Sheets("Formulaire").Range("B3").Value
' Sélectionner l'onglet DATA
ActiveWorkbook.Sheets("DATA").Select
' Sélectionner la colonne A
Columns("A:A").Select
' Rechercher la cellule contenant le contenu de la variable NoEmploye
???
' Créer une variable avec le numéro de ligne de la cellule trouvée
y = Selection.Row
' Copier le contenu de la cellule B8 de l'onglet Formulaire
ActiveWorkbook.Sheets("Formulaire").Select
Range("B8").Select
Selection.Copy
' Coller dans la cellule EY de l'onglet DATA. Y étant la variable
ActiveWorkbook.Sheets("DATA").Select
Range("E" & y).Select
ActiveSheet.Paste
End Sub
bonjour Céline,
contente de te revoir, bon retour sur le groupe,
Sub Formulaire()
Dim NoEmploye
NomVariable =
Workbooks("2009.xls").Sheets("Formulaire").Range("B3").Value
With ActiveWorkbook
With .Sheets("DATA").Range("A:A")
y = .Find(What:=NomVariable, After:¬tiveCell, LookIn:=xlValues,
LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
MatchCase _
:úlse, SearchFormat:úlse).Row
End With
.Sheets("Formulaire").Range("B8").Copy .Sheets("DATA").Range("E" & y)
End With
End Sub
isabelle
Céline Brien a écrit :
Bonjour à tous,
Un formulaire de saisie d'une part : onglet Formulaire
Un tableau de données d'autre part : onglet DATA
L'objectif est de transférer les données du formulaire au tableau.
Ci-après les codes de la macro.
Comment rechercher la cellule contenant la variable x à la douzième ligne
identifiée par ???
Merci beaucoup de votre aide précieuse,
Céline
--------------------------------------------------------------------------
Sub TransfererDonnees()
'
'
' Créer une variable avec le numéro inscrit dans le cellule B3 de
l'onglet Formulaire
Dim NoEmploye
NomVariable =
Workbooks("2009.xls").Sheets("Formulaire").Range("B3").Value
' Sélectionner l'onglet DATA
ActiveWorkbook.Sheets("DATA").Select
' Sélectionner la colonne A
Columns("A:A").Select
' Rechercher la cellule contenant le contenu de la variable NoEmploye
???
' Créer une variable avec le numéro de ligne de la cellule trouvée
y = Selection.Row
' Copier le contenu de la cellule B8 de l'onglet Formulaire
ActiveWorkbook.Sheets("Formulaire").Select
Range("B8").Select
Selection.Copy
' Coller dans la cellule EY de l'onglet DATA. Y étant la variable
ActiveWorkbook.Sheets("DATA").Select
Range("E" & y).Select
ActiveSheet.Paste
End Sub
bonjour Céline,
contente de te revoir, bon retour sur le groupe,
Sub Formulaire()
Dim NoEmploye
NomVariable =
Workbooks("2009.xls").Sheets("Formulaire").Range("B3").Value
With ActiveWorkbook
With .Sheets("DATA").Range("A:A")
y = .Find(What:=NomVariable, After:¬tiveCell, LookIn:=xlValues,
LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
MatchCase _
:úlse, SearchFormat:úlse).Row
End With
.Sheets("Formulaire").Range("B8").Copy .Sheets("DATA").Range("E" & y)
End With
End Sub
isabelle
Céline Brien a écrit :Bonjour à tous,
Un formulaire de saisie d'une part : onglet Formulaire
Un tableau de données d'autre part : onglet DATA
L'objectif est de transférer les données du formulaire au tableau.
Ci-après les codes de la macro.
Comment rechercher la cellule contenant la variable x à la douzième ligne
identifiée par ???
Merci beaucoup de votre aide précieuse,
Céline
--------------------------------------------------------------------------
Sub TransfererDonnees()
'
'
' Créer une variable avec le numéro inscrit dans le cellule B3 de
l'onglet Formulaire
Dim NoEmploye
NomVariable =
Workbooks("2009.xls").Sheets("Formulaire").Range("B3").Value
' Sélectionner l'onglet DATA
ActiveWorkbook.Sheets("DATA").Select
' Sélectionner la colonne A
Columns("A:A").Select
' Rechercher la cellule contenant le contenu de la variable NoEmploye
???
' Créer une variable avec le numéro de ligne de la cellule trouvée
y = Selection.Row
' Copier le contenu de la cellule B8 de l'onglet Formulaire
ActiveWorkbook.Sheets("Formulaire").Select
Range("B8").Select
Selection.Copy
' Coller dans la cellule EY de l'onglet DATA. Y étant la variable
ActiveWorkbook.Sheets("DATA").Select
Range("E" & y).Select
ActiveSheet.Paste
End Sub
Coucou Céline
Heureux de te revoir par Minou.
Jacques
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"Céline Brien" a écrit dans le message de
news:Bonjour à tous,
Un formulaire de saisie d'une part : onglet Formulaire
Un tableau de données d'autre part : onglet DATA
L'objectif est de transférer les données du formulaire au tableau.
Ci-après les codes de la macro.
Comment rechercher la cellule contenant la variable x à la douzième ligne
identifiée par ???
Merci beaucoup de votre aide précieuse,
Céline
--------------------------------------------------------------------------
Sub TransfererDonnees()
'
'
' Créer une variable avec le numéro inscrit dans le cellule B3 de
l'onglet Formulaire
Dim NoEmploye
NomVariable =
Workbooks("2009.xls").Sheets("Formulaire").Range("B3").Value
' Sélectionner l'onglet DATA
ActiveWorkbook.Sheets("DATA").Select
' Sélectionner la colonne A
Columns("A:A").Select
' Rechercher la cellule contenant le contenu de la variable NoEmploye
???
' Créer une variable avec le numéro de ligne de la cellule trouvée
y = Selection.Row
' Copier le contenu de la cellule B8 de l'onglet Formulaire
ActiveWorkbook.Sheets("Formulaire").Select
Range("B8").Select
Selection.Copy
' Coller dans la cellule EY de l'onglet DATA. Y étant la variable
ActiveWorkbook.Sheets("DATA").Select
Range("E" & y).Select
ActiveSheet.Paste
End Sub
Coucou Céline
Heureux de te revoir par Minou.
Jacques
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"Céline Brien" <celinebrien@laurentides.qc.ca> a écrit dans le message de
news: uBIUabqvJHA.5708@TK2MSFTNGP04.phx.gbl...
Bonjour à tous,
Un formulaire de saisie d'une part : onglet Formulaire
Un tableau de données d'autre part : onglet DATA
L'objectif est de transférer les données du formulaire au tableau.
Ci-après les codes de la macro.
Comment rechercher la cellule contenant la variable x à la douzième ligne
identifiée par ???
Merci beaucoup de votre aide précieuse,
Céline
--------------------------------------------------------------------------
Sub TransfererDonnees()
'
'
' Créer une variable avec le numéro inscrit dans le cellule B3 de
l'onglet Formulaire
Dim NoEmploye
NomVariable =
Workbooks("2009.xls").Sheets("Formulaire").Range("B3").Value
' Sélectionner l'onglet DATA
ActiveWorkbook.Sheets("DATA").Select
' Sélectionner la colonne A
Columns("A:A").Select
' Rechercher la cellule contenant le contenu de la variable NoEmploye
???
' Créer une variable avec le numéro de ligne de la cellule trouvée
y = Selection.Row
' Copier le contenu de la cellule B8 de l'onglet Formulaire
ActiveWorkbook.Sheets("Formulaire").Select
Range("B8").Select
Selection.Copy
' Coller dans la cellule EY de l'onglet DATA. Y étant la variable
ActiveWorkbook.Sheets("DATA").Select
Range("E" & y).Select
ActiveSheet.Paste
End Sub
Coucou Céline
Heureux de te revoir par Minou.
Jacques
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"Céline Brien" a écrit dans le message de
news:Bonjour à tous,
Un formulaire de saisie d'une part : onglet Formulaire
Un tableau de données d'autre part : onglet DATA
L'objectif est de transférer les données du formulaire au tableau.
Ci-après les codes de la macro.
Comment rechercher la cellule contenant la variable x à la douzième ligne
identifiée par ???
Merci beaucoup de votre aide précieuse,
Céline
--------------------------------------------------------------------------
Sub TransfererDonnees()
'
'
' Créer une variable avec le numéro inscrit dans le cellule B3 de
l'onglet Formulaire
Dim NoEmploye
NomVariable =
Workbooks("2009.xls").Sheets("Formulaire").Range("B3").Value
' Sélectionner l'onglet DATA
ActiveWorkbook.Sheets("DATA").Select
' Sélectionner la colonne A
Columns("A:A").Select
' Rechercher la cellule contenant le contenu de la variable NoEmploye
???
' Créer une variable avec le numéro de ligne de la cellule trouvée
y = Selection.Row
' Copier le contenu de la cellule B8 de l'onglet Formulaire
ActiveWorkbook.Sheets("Formulaire").Select
Range("B8").Select
Selection.Copy
' Coller dans la cellule EY de l'onglet DATA. Y étant la variable
ActiveWorkbook.Sheets("DATA").Select
Range("E" & y).Select
ActiveSheet.Paste
End Sub
Salut Jacquouille,
Merci de ton accueil chaleureux.
Comme je disais à Isabelle, une présence plus régulière dans ce forum si
dynamique n'est pas exclue.
Au plaisir,
Céline
"Jacquouille" a écrit dans le message de
news:Coucou Céline
Heureux de te revoir par Minou.
Jacques
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"Céline Brien" a écrit dans le message de
news:Bonjour à tous,
Un formulaire de saisie d'une part : onglet Formulaire
Un tableau de données d'autre part : onglet DATA
L'objectif est de transférer les données du formulaire au tableau.
Ci-après les codes de la macro.
Comment rechercher la cellule contenant la variable x à la douzième
ligne identifiée par ???
Merci beaucoup de votre aide précieuse,
Céline
--------------------------------------------------------------------------
Sub TransfererDonnees()
'
'
' Créer une variable avec le numéro inscrit dans le cellule B3 de
l'onglet Formulaire
Dim NoEmploye
NomVariable =
Workbooks("2009.xls").Sheets("Formulaire").Range("B3").Value
' Sélectionner l'onglet DATA
ActiveWorkbook.Sheets("DATA").Select
' Sélectionner la colonne A
Columns("A:A").Select
' Rechercher la cellule contenant le contenu de la variable NoEmploye
???
' Créer une variable avec le numéro de ligne de la cellule trouvée
y = Selection.Row
' Copier le contenu de la cellule B8 de l'onglet Formulaire
ActiveWorkbook.Sheets("Formulaire").Select
Range("B8").Select
Selection.Copy
' Coller dans la cellule EY de l'onglet DATA. Y étant la variable
ActiveWorkbook.Sheets("DATA").Select
Range("E" & y).Select
ActiveSheet.Paste
End Sub
Salut Jacquouille,
Merci de ton accueil chaleureux.
Comme je disais à Isabelle, une présence plus régulière dans ce forum si
dynamique n'est pas exclue.
Au plaisir,
Céline
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message de
news: ODOsv0rvJHA.4620@TK2MSFTNGP06.phx.gbl...
Coucou Céline
Heureux de te revoir par Minou.
Jacques
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"Céline Brien" <celinebrien@laurentides.qc.ca> a écrit dans le message de
news: uBIUabqvJHA.5708@TK2MSFTNGP04.phx.gbl...
Bonjour à tous,
Un formulaire de saisie d'une part : onglet Formulaire
Un tableau de données d'autre part : onglet DATA
L'objectif est de transférer les données du formulaire au tableau.
Ci-après les codes de la macro.
Comment rechercher la cellule contenant la variable x à la douzième
ligne identifiée par ???
Merci beaucoup de votre aide précieuse,
Céline
--------------------------------------------------------------------------
Sub TransfererDonnees()
'
'
' Créer une variable avec le numéro inscrit dans le cellule B3 de
l'onglet Formulaire
Dim NoEmploye
NomVariable =
Workbooks("2009.xls").Sheets("Formulaire").Range("B3").Value
' Sélectionner l'onglet DATA
ActiveWorkbook.Sheets("DATA").Select
' Sélectionner la colonne A
Columns("A:A").Select
' Rechercher la cellule contenant le contenu de la variable NoEmploye
???
' Créer une variable avec le numéro de ligne de la cellule trouvée
y = Selection.Row
' Copier le contenu de la cellule B8 de l'onglet Formulaire
ActiveWorkbook.Sheets("Formulaire").Select
Range("B8").Select
Selection.Copy
' Coller dans la cellule EY de l'onglet DATA. Y étant la variable
ActiveWorkbook.Sheets("DATA").Select
Range("E" & y).Select
ActiveSheet.Paste
End Sub
Salut Jacquouille,
Merci de ton accueil chaleureux.
Comme je disais à Isabelle, une présence plus régulière dans ce forum si
dynamique n'est pas exclue.
Au plaisir,
Céline
"Jacquouille" a écrit dans le message de
news:Coucou Céline
Heureux de te revoir par Minou.
Jacques
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"Céline Brien" a écrit dans le message de
news:Bonjour à tous,
Un formulaire de saisie d'une part : onglet Formulaire
Un tableau de données d'autre part : onglet DATA
L'objectif est de transférer les données du formulaire au tableau.
Ci-après les codes de la macro.
Comment rechercher la cellule contenant la variable x à la douzième
ligne identifiée par ???
Merci beaucoup de votre aide précieuse,
Céline
--------------------------------------------------------------------------
Sub TransfererDonnees()
'
'
' Créer une variable avec le numéro inscrit dans le cellule B3 de
l'onglet Formulaire
Dim NoEmploye
NomVariable =
Workbooks("2009.xls").Sheets("Formulaire").Range("B3").Value
' Sélectionner l'onglet DATA
ActiveWorkbook.Sheets("DATA").Select
' Sélectionner la colonne A
Columns("A:A").Select
' Rechercher la cellule contenant le contenu de la variable NoEmploye
???
' Créer une variable avec le numéro de ligne de la cellule trouvée
y = Selection.Row
' Copier le contenu de la cellule B8 de l'onglet Formulaire
ActiveWorkbook.Sheets("Formulaire").Select
Range("B8").Select
Selection.Copy
' Coller dans la cellule EY de l'onglet DATA. Y étant la variable
ActiveWorkbook.Sheets("DATA").Select
Range("E" & y).Select
ActiveSheet.Paste
End Sub