ça pourrait ressembler à quelque chose comme ceci :
'-----------------------------
Sub test()
Dim R As Long
Dim Sh As Worksheet
Dim Sh1 As Worksheet
'À renseigner selon ton application :Classeur & Feuille
Set Sh =("NomClasseurSource.xls").Worksheets("Feuil1")
Set Sh1 = Worksbook("NomClasseurDestination.xls").Worksheets("Feuil1")
With Sh1
R = .Range("A65536").End(xlUp)(2).Row
Range("A" & R) = Sh.Range("H4")
R = .Range("C65536").End(xlUp)(2).Row
Range("C" & R) = Sh.Range("H9")
R = .Range("F65536").End(xlUp)().Row
Range("F" & R) = Sh.Range("H5")
End With
End Sub
'-----------------------------
"Anatole" a écrit dans le message de groupe de
discussion :
Bonjour,
J'aimerais savoir comment faire pour faire une macro qui va copier du
classeur 1 vers le classeur 2 qui sont tous les deux ouverts.
exemple on va copier du classeur donneur se qui se trouve en cellule H4
,
H9 h H5 vers le classeur 2 qui le classeur receveur.
Mais le classeur receveur va stocker H4 en A4 si vide si non
prendre la cellule en dessous. c'est A5 ainsi de suite.
H9 en C9
si
vide si non prendre la cellule en dessous , c'est à dire C10 ainsi de
suite.
H 5 en F5
si vide si non prendre la cellule en dessous F6 ainsi de suite.
info : sur ligne 400 dans le classeur receveur je fait le
total
de la colonne A - C - F qui totalise de A4 à 399. idem pou C et F.
Merci à vous.
Anatole.
ça pourrait ressembler à quelque chose comme ceci :
'-----------------------------
Sub test()
Dim R As Long
Dim Sh As Worksheet
Dim Sh1 As Worksheet
'À renseigner selon ton application :Classeur & Feuille
Set Sh =("NomClasseurSource.xls").Worksheets("Feuil1")
Set Sh1 = Worksbook("NomClasseurDestination.xls").Worksheets("Feuil1")
With Sh1
R = .Range("A65536").End(xlUp)(2).Row
Range("A" & R) = Sh.Range("H4")
R = .Range("C65536").End(xlUp)(2).Row
Range("C" & R) = Sh.Range("H9")
R = .Range("F65536").End(xlUp)().Row
Range("F" & R) = Sh.Range("H5")
End With
End Sub
'-----------------------------
"Anatole" <anatole.sully@orange.fr> a écrit dans le message de groupe de
discussion :
OTsOd10kJHA.6060@TK2MSFTNGP05.phx.gbl...
Bonjour,
J'aimerais savoir comment faire pour faire une macro qui va copier du
classeur 1 vers le classeur 2 qui sont tous les deux ouverts.
exemple on va copier du classeur donneur se qui se trouve en cellule H4
,
H9 h H5 vers le classeur 2 qui le classeur receveur.
Mais le classeur receveur va stocker H4 en A4 si vide si non
prendre la cellule en dessous. c'est A5 ainsi de suite.
H9 en C9
si
vide si non prendre la cellule en dessous , c'est à dire C10 ainsi de
suite.
H 5 en F5
si vide si non prendre la cellule en dessous F6 ainsi de suite.
info : sur ligne 400 dans le classeur receveur je fait le
total
de la colonne A - C - F qui totalise de A4 à 399. idem pou C et F.
Merci à vous.
Anatole.
ça pourrait ressembler à quelque chose comme ceci :
'-----------------------------
Sub test()
Dim R As Long
Dim Sh As Worksheet
Dim Sh1 As Worksheet
'À renseigner selon ton application :Classeur & Feuille
Set Sh =("NomClasseurSource.xls").Worksheets("Feuil1")
Set Sh1 = Worksbook("NomClasseurDestination.xls").Worksheets("Feuil1")
With Sh1
R = .Range("A65536").End(xlUp)(2).Row
Range("A" & R) = Sh.Range("H4")
R = .Range("C65536").End(xlUp)(2).Row
Range("C" & R) = Sh.Range("H9")
R = .Range("F65536").End(xlUp)().Row
Range("F" & R) = Sh.Range("H5")
End With
End Sub
'-----------------------------
"Anatole" a écrit dans le message de groupe de
discussion :
Bonjour,
J'aimerais savoir comment faire pour faire une macro qui va copier du
classeur 1 vers le classeur 2 qui sont tous les deux ouverts.
exemple on va copier du classeur donneur se qui se trouve en cellule H4
,
H9 h H5 vers le classeur 2 qui le classeur receveur.
Mais le classeur receveur va stocker H4 en A4 si vide si non
prendre la cellule en dessous. c'est A5 ainsi de suite.
H9 en C9
si
vide si non prendre la cellule en dessous , c'est à dire C10 ainsi de
suite.
H 5 en F5
si vide si non prendre la cellule en dessous F6 ainsi de suite.
info : sur ligne 400 dans le classeur receveur je fait le
total
de la colonne A - C - F qui totalise de A4 à 399. idem pou C et F.
Merci à vous.
Anatole.
ça pourrait ressembler à quelque chose comme ceci :
'-----------------------------
Sub test()
Dim R As Long
Dim Sh As Worksheet
Dim Sh1 As Worksheet
'À renseigner selon ton application :Classeur & Feuille
Set Sh =("NomClasseurSource.xls").Worksheets("Feuil1")
Set Sh1 = Worksbook("NomClasseurDestination.xls").Worksheets("Feuil1")
With Sh1
R = .Range("A65536").End(xlUp)(2).Row
Range("A" & R) = Sh.Range("H4")
R = .Range("C65536").End(xlUp)(2).Row
Range("C" & R) = Sh.Range("H9")
R = .Range("F65536").End(xlUp)().Row
Range("F" & R) = Sh.Range("H5")
End With
End Sub
'-----------------------------
"Anatole" a écrit dans le message de groupe de
discussion :
Bonjour,
J'aimerais savoir comment faire pour faire une macro qui va copier du
classeur 1 vers le classeur 2 qui sont tous les deux ouverts.
exemple on va copier du classeur donneur se qui se trouve en cellule H4
,
H9 h H5 vers le classeur 2 qui le classeur receveur.
Mais le classeur receveur va stocker H4 en A4 si vide si non
prendre la cellule en dessous. c'est A5 ainsi de suite.
H9 en C9
si
vide si non prendre la cellule en dessous , c'est à dire C10 ainsi de
suite.
H 5 en F5
si vide si non prendre la cellule en dessous F6 ainsi de suite.
info : sur ligne 400 dans le classeur receveur je fait le
total
de la colonne A - C - F qui totalise de A4 à 399. idem pou C et F.
Merci à vous.
Anatole.
ça pourrait ressembler à quelque chose comme ceci :
'-----------------------------
Sub test()
Dim R As Long
Dim Sh As Worksheet
Dim Sh1 As Worksheet
'À renseigner selon ton application :Classeur & Feuille
Set Sh =("NomClasseurSource.xls").Worksheets("Feuil1")
Set Sh1 = Worksbook("NomClasseurDestination.xls").Worksheets("Feuil1")
With Sh1
R = .Range("A65536").End(xlUp)(2).Row
Range("A" & R) = Sh.Range("H4")
R = .Range("C65536").End(xlUp)(2).Row
Range("C" & R) = Sh.Range("H9")
R = .Range("F65536").End(xlUp)().Row
Range("F" & R) = Sh.Range("H5")
End With
End Sub
'-----------------------------
"Anatole" <anatole.sully@orange.fr> a écrit dans le message de groupe de
discussion :
OTsOd10kJHA.6060@TK2MSFTNGP05.phx.gbl...
Bonjour,
J'aimerais savoir comment faire pour faire une macro qui va copier du
classeur 1 vers le classeur 2 qui sont tous les deux ouverts.
exemple on va copier du classeur donneur se qui se trouve en cellule H4
,
H9 h H5 vers le classeur 2 qui le classeur receveur.
Mais le classeur receveur va stocker H4 en A4 si vide si non
prendre la cellule en dessous. c'est A5 ainsi de suite.
H9 en C9
si
vide si non prendre la cellule en dessous , c'est à dire C10 ainsi de
suite.
H 5 en F5
si vide si non prendre la cellule en dessous F6 ainsi de suite.
info : sur ligne 400 dans le classeur receveur je fait le
total
de la colonne A - C - F qui totalise de A4 à 399. idem pou C et F.
Merci à vous.
Anatole.
ça pourrait ressembler à quelque chose comme ceci :
'-----------------------------
Sub test()
Dim R As Long
Dim Sh As Worksheet
Dim Sh1 As Worksheet
'À renseigner selon ton application :Classeur & Feuille
Set Sh =("NomClasseurSource.xls").Worksheets("Feuil1")
Set Sh1 = Worksbook("NomClasseurDestination.xls").Worksheets("Feuil1")
With Sh1
R = .Range("A65536").End(xlUp)(2).Row
Range("A" & R) = Sh.Range("H4")
R = .Range("C65536").End(xlUp)(2).Row
Range("C" & R) = Sh.Range("H9")
R = .Range("F65536").End(xlUp)().Row
Range("F" & R) = Sh.Range("H5")
End With
End Sub
'-----------------------------
"Anatole" a écrit dans le message de groupe de
discussion :
Bonjour,
J'aimerais savoir comment faire pour faire une macro qui va copier du
classeur 1 vers le classeur 2 qui sont tous les deux ouverts.
exemple on va copier du classeur donneur se qui se trouve en cellule H4
,
H9 h H5 vers le classeur 2 qui le classeur receveur.
Mais le classeur receveur va stocker H4 en A4 si vide si non
prendre la cellule en dessous. c'est A5 ainsi de suite.
H9 en C9
si
vide si non prendre la cellule en dessous , c'est à dire C10 ainsi de
suite.
H 5 en F5
si vide si non prendre la cellule en dessous F6 ainsi de suite.
info : sur ligne 400 dans le classeur receveur je fait le
total
de la colonne A - C - F qui totalise de A4 à 399. idem pou C et F.
Merci à vous.
Anatole.
ça pourrait ressembler à quelque chose comme ceci :
'-----------------------------
Sub test()
Dim R As Long
Dim Sh As Worksheet
Dim Sh1 As Worksheet
'À renseigner selon ton application :Classeur & Feuille
Set Sh = Worksbook("NomClasseurSource.xls").Worksheets("Feuil1")
Set Sh1 = Worksbook("NomClasseurDestination.xls").Worksheets("Feuil1")
With Sh1
R = .Range("A65536").End(xlUp)(2).Row
Range("A" & R) = Sh.Range("H4")
R = .Range("C65536").End(xlUp)(2).Row
Range("C" & R) = Sh.Range("H9")
R = .Range("F65536").End(xlUp)().Row
Range("F" & R) = Sh.Range("H5")
End With
End Sub
'-----------------------------
"Anatole" a écrit dans le message de groupe de
discussion :
Bonjour,
J'aimerais savoir comment faire pour faire une macro qui va copier du
classeur 1 vers le classeur 2 qui sont tous les deux ouverts.
exemple on va copier du classeur donneur se qui se trouve en cellule H4
,
H9 h H5 vers le classeur 2 qui le classeur receveur.
Mais le classeur receveur va stocker H4 en A4 si vide si non
prendre la cellule en dessous. c'est A5 ainsi de suite.
H9 en C9
si
vide si non prendre la cellule en dessous , c'est à dire C10 ainsi de
suite.
H 5 en F5
si vide si non prendre la cellule en dessous F6 ainsi de suite.
info : sur ligne 400 dans le classeur receveur je fait le
total
de la colonne A - C - F qui totalise de A4 à 399. idem pou C et F.
Merci à vous.
Anatole.
ça pourrait ressembler à quelque chose comme ceci :
'-----------------------------
Sub test()
Dim R As Long
Dim Sh As Worksheet
Dim Sh1 As Worksheet
'À renseigner selon ton application :Classeur & Feuille
Set Sh = Worksbook("NomClasseurSource.xls").Worksheets("Feuil1")
Set Sh1 = Worksbook("NomClasseurDestination.xls").Worksheets("Feuil1")
With Sh1
R = .Range("A65536").End(xlUp)(2).Row
Range("A" & R) = Sh.Range("H4")
R = .Range("C65536").End(xlUp)(2).Row
Range("C" & R) = Sh.Range("H9")
R = .Range("F65536").End(xlUp)().Row
Range("F" & R) = Sh.Range("H5")
End With
End Sub
'-----------------------------
"Anatole" <anatole.sully@orange.fr> a écrit dans le message de groupe de
discussion :
OTsOd10kJHA.6060@TK2MSFTNGP05.phx.gbl...
Bonjour,
J'aimerais savoir comment faire pour faire une macro qui va copier du
classeur 1 vers le classeur 2 qui sont tous les deux ouverts.
exemple on va copier du classeur donneur se qui se trouve en cellule H4
,
H9 h H5 vers le classeur 2 qui le classeur receveur.
Mais le classeur receveur va stocker H4 en A4 si vide si non
prendre la cellule en dessous. c'est A5 ainsi de suite.
H9 en C9
si
vide si non prendre la cellule en dessous , c'est à dire C10 ainsi de
suite.
H 5 en F5
si vide si non prendre la cellule en dessous F6 ainsi de suite.
info : sur ligne 400 dans le classeur receveur je fait le
total
de la colonne A - C - F qui totalise de A4 à 399. idem pou C et F.
Merci à vous.
Anatole.
ça pourrait ressembler à quelque chose comme ceci :
'-----------------------------
Sub test()
Dim R As Long
Dim Sh As Worksheet
Dim Sh1 As Worksheet
'À renseigner selon ton application :Classeur & Feuille
Set Sh = Worksbook("NomClasseurSource.xls").Worksheets("Feuil1")
Set Sh1 = Worksbook("NomClasseurDestination.xls").Worksheets("Feuil1")
With Sh1
R = .Range("A65536").End(xlUp)(2).Row
Range("A" & R) = Sh.Range("H4")
R = .Range("C65536").End(xlUp)(2).Row
Range("C" & R) = Sh.Range("H9")
R = .Range("F65536").End(xlUp)().Row
Range("F" & R) = Sh.Range("H5")
End With
End Sub
'-----------------------------
"Anatole" a écrit dans le message de groupe de
discussion :
Bonjour,
J'aimerais savoir comment faire pour faire une macro qui va copier du
classeur 1 vers le classeur 2 qui sont tous les deux ouverts.
exemple on va copier du classeur donneur se qui se trouve en cellule H4
,
H9 h H5 vers le classeur 2 qui le classeur receveur.
Mais le classeur receveur va stocker H4 en A4 si vide si non
prendre la cellule en dessous. c'est A5 ainsi de suite.
H9 en C9
si
vide si non prendre la cellule en dessous , c'est à dire C10 ainsi de
suite.
H 5 en F5
si vide si non prendre la cellule en dessous F6 ainsi de suite.
info : sur ligne 400 dans le classeur receveur je fait le
total
de la colonne A - C - F qui totalise de A4 à 399. idem pou C et F.
Merci à vous.
Anatole.
ça pourrait ressembler à quelque chose comme ceci :
'-----------------------------
Sub test()
Dim R As Long
Dim Sh As Worksheet
Dim Sh1 As Worksheet
'À renseigner selon ton application :Classeur & Feuille
Set Sh = Worksbook("NomClasseurSource.xls").Worksheets("Feuil1")
Set Sh1 = Worksbook("NomClasseurDestination.xls").Worksheets("Feuil1")
With Sh1
R = .Range("A65536").End(xlUp)(2).Row
Range("A" & R) = Sh.Range("H4")
R = .Range("C65536").End(xlUp)(2).Row
Range("C" & R) = Sh.Range("H9")
R = .Range("F65536").End(xlUp)().Row
Range("F" & R) = Sh.Range("H5")
End With
End Sub
'-----------------------------
"Anatole" a écrit dans le message de groupe de
discussion :
Bonjour,
J'aimerais savoir comment faire pour faire une macro qui va copier du
classeur 1 vers le classeur 2 qui sont tous les deux ouverts.
exemple on va copier du classeur donneur se qui se trouve en cellule H4
,
H9 h H5 vers le classeur 2 qui le classeur receveur.
Mais le classeur receveur va stocker H4 en A4 si vide si non
prendre la cellule en dessous. c'est A5 ainsi de suite.
H9 en C9
si
vide si non prendre la cellule en dessous , c'est à dire C10 ainsi de
suite.
H 5 en F5
si vide si non prendre la cellule en dessous F6 ainsi de suite.
info : sur ligne 400 dans le classeur receveur je fait le
total
de la colonne A - C - F qui totalise de A4 à 399. idem pou C et F.
Merci à vous.
Anatole.
ça pourrait ressembler à quelque chose comme ceci :
'-----------------------------
Sub test()
Dim R As Long
Dim Sh As Worksheet
Dim Sh1 As Worksheet
'À renseigner selon ton application :Classeur & Feuille
Set Sh = Worksbook("NomClasseurSource.xls").Worksheets("Feuil1")
Set Sh1 = Worksbook("NomClasseurDestination.xls").Worksheets("Feuil1")
With Sh1
R = .Range("A65536").End(xlUp)(2).Row
Range("A" & R) = Sh.Range("H4")
R = .Range("C65536").End(xlUp)(2).Row
Range("C" & R) = Sh.Range("H9")
R = .Range("F65536").End(xlUp)().Row
Range("F" & R) = Sh.Range("H5")
End With
End Sub
'-----------------------------
"Anatole" <anatole.sully@orange.fr> a écrit dans le message de groupe de
discussion :
OTsOd10kJHA.6060@TK2MSFTNGP05.phx.gbl...
Bonjour,
J'aimerais savoir comment faire pour faire une macro qui va copier du
classeur 1 vers le classeur 2 qui sont tous les deux ouverts.
exemple on va copier du classeur donneur se qui se trouve en cellule H4
,
H9 h H5 vers le classeur 2 qui le classeur receveur.
Mais le classeur receveur va stocker H4 en A4 si vide si non
prendre la cellule en dessous. c'est A5 ainsi de suite.
H9 en C9
si
vide si non prendre la cellule en dessous , c'est à dire C10 ainsi de
suite.
H 5 en F5
si vide si non prendre la cellule en dessous F6 ainsi de suite.
info : sur ligne 400 dans le classeur receveur je fait le
total
de la colonne A - C - F qui totalise de A4 à 399. idem pou C et F.
Merci à vous.
Anatole.
ça pourrait ressembler à quelque chose comme ceci :
'-----------------------------
Sub test()
Dim R As Long
Dim Sh As Worksheet
Dim Sh1 As Worksheet
'À renseigner selon ton application :Classeur & Feuille
Set Sh = Worksbook("NomClasseurSource.xls").Worksheets("Feuil1")
Set Sh1 = Worksbook("NomClasseurDestination.xls").Worksheets("Feuil1")
With Sh1
R = .Range("A65536").End(xlUp)(2).Row
Range("A" & R) = Sh.Range("H4")
R = .Range("C65536").End(xlUp)(2).Row
Range("C" & R) = Sh.Range("H9")
R = .Range("F65536").End(xlUp)().Row
Range("F" & R) = Sh.Range("H5")
End With
End Sub
'-----------------------------
"Anatole" a écrit dans le message de groupe de
discussion :
Bonjour,
J'aimerais savoir comment faire pour faire une macro qui va copier du
classeur 1 vers le classeur 2 qui sont tous les deux ouverts.
exemple on va copier du classeur donneur se qui se trouve en cellule H4
,
H9 h H5 vers le classeur 2 qui le classeur receveur.
Mais le classeur receveur va stocker H4 en A4 si vide si non
prendre la cellule en dessous. c'est A5 ainsi de suite.
H9 en C9
si
vide si non prendre la cellule en dessous , c'est à dire C10 ainsi de
suite.
H 5 en F5
si vide si non prendre la cellule en dessous F6 ainsi de suite.
info : sur ligne 400 dans le classeur receveur je fait le
total
de la colonne A - C - F qui totalise de A4 à 399. idem pou C et F.
Merci à vous.
Anatole.