Bonjour à tous,
Sur Excel 2003.
J'ai un fichier de saisie contenant certaines données confidentielles et
d'autres non. Je souhaite créé un fichier qui puisse récupérer les données
non confidentielles et sur lequel je pourrait, simplement à l'aide d'une
macro, faire une mise à jour. Les deux fichiers se trouvent sur deux
serveurs
différents.
Exemple :
Dans le fichier source, si la cellule A2 contient "Toto", je souhaite
renvoyer dans des cellules du fichier cible les valeurs de la cellule A1,
celle de la cellule D1, puis celle de la cellule J1.
Sachant que les lignes contenant "Toto" ne sont pas adjacentes et que les
cellules à renvoyées ne le sont pas non plus, est-ce possible de récupérer
ces données dans le fichier cible, sur des lignes et colonnes adjacentes ?
D'avance merci pour votre aide.
Papounet26
Bonjour à tous,
Sur Excel 2003.
J'ai un fichier de saisie contenant certaines données confidentielles et
d'autres non. Je souhaite créé un fichier qui puisse récupérer les données
non confidentielles et sur lequel je pourrait, simplement à l'aide d'une
macro, faire une mise à jour. Les deux fichiers se trouvent sur deux
serveurs
différents.
Exemple :
Dans le fichier source, si la cellule A2 contient "Toto", je souhaite
renvoyer dans des cellules du fichier cible les valeurs de la cellule A1,
celle de la cellule D1, puis celle de la cellule J1.
Sachant que les lignes contenant "Toto" ne sont pas adjacentes et que les
cellules à renvoyées ne le sont pas non plus, est-ce possible de récupérer
ces données dans le fichier cible, sur des lignes et colonnes adjacentes ?
D'avance merci pour votre aide.
Papounet26
Bonjour à tous,
Sur Excel 2003.
J'ai un fichier de saisie contenant certaines données confidentielles et
d'autres non. Je souhaite créé un fichier qui puisse récupérer les données
non confidentielles et sur lequel je pourrait, simplement à l'aide d'une
macro, faire une mise à jour. Les deux fichiers se trouvent sur deux
serveurs
différents.
Exemple :
Dans le fichier source, si la cellule A2 contient "Toto", je souhaite
renvoyer dans des cellules du fichier cible les valeurs de la cellule A1,
celle de la cellule D1, puis celle de la cellule J1.
Sachant que les lignes contenant "Toto" ne sont pas adjacentes et que les
cellules à renvoyées ne le sont pas non plus, est-ce possible de récupérer
ces données dans le fichier cible, sur des lignes et colonnes adjacentes ?
D'avance merci pour votre aide.
Papounet26
Bonjour.
Tes cellules "toto" sont toutes en colonne A ou n'importe où ?
Cordialement.
Daniel
"Papounet26" a écrit dans le message
de news:Bonjour à tous,
Sur Excel 2003.
J'ai un fichier de saisie contenant certaines données confidentielles et
d'autres non. Je souhaite créé un fichier qui puisse récupérer les données
non confidentielles et sur lequel je pourrait, simplement à l'aide d'une
macro, faire une mise à jour. Les deux fichiers se trouvent sur deux
serveurs
différents.
Exemple :
Dans le fichier source, si la cellule A2 contient "Toto", je souhaite
renvoyer dans des cellules du fichier cible les valeurs de la cellule A1,
celle de la cellule D1, puis celle de la cellule J1.
Sachant que les lignes contenant "Toto" ne sont pas adjacentes et que les
cellules à renvoyées ne le sont pas non plus, est-ce possible de récupérer
ces données dans le fichier cible, sur des lignes et colonnes adjacentes ?
D'avance merci pour votre aide.
Papounet26
Bonjour.
Tes cellules "toto" sont toutes en colonne A ou n'importe où ?
Cordialement.
Daniel
"Papounet26" <Papounet26@discussions.microsoft.com> a écrit dans le message
de news: DCEF410B-7572-4A31-8DA3-0C79329F3966@microsoft.com...
Bonjour à tous,
Sur Excel 2003.
J'ai un fichier de saisie contenant certaines données confidentielles et
d'autres non. Je souhaite créé un fichier qui puisse récupérer les données
non confidentielles et sur lequel je pourrait, simplement à l'aide d'une
macro, faire une mise à jour. Les deux fichiers se trouvent sur deux
serveurs
différents.
Exemple :
Dans le fichier source, si la cellule A2 contient "Toto", je souhaite
renvoyer dans des cellules du fichier cible les valeurs de la cellule A1,
celle de la cellule D1, puis celle de la cellule J1.
Sachant que les lignes contenant "Toto" ne sont pas adjacentes et que les
cellules à renvoyées ne le sont pas non plus, est-ce possible de récupérer
ces données dans le fichier cible, sur des lignes et colonnes adjacentes ?
D'avance merci pour votre aide.
Papounet26
Bonjour.
Tes cellules "toto" sont toutes en colonne A ou n'importe où ?
Cordialement.
Daniel
"Papounet26" a écrit dans le message
de news:Bonjour à tous,
Sur Excel 2003.
J'ai un fichier de saisie contenant certaines données confidentielles et
d'autres non. Je souhaite créé un fichier qui puisse récupérer les données
non confidentielles et sur lequel je pourrait, simplement à l'aide d'une
macro, faire une mise à jour. Les deux fichiers se trouvent sur deux
serveurs
différents.
Exemple :
Dans le fichier source, si la cellule A2 contient "Toto", je souhaite
renvoyer dans des cellules du fichier cible les valeurs de la cellule A1,
celle de la cellule D1, puis celle de la cellule J1.
Sachant que les lignes contenant "Toto" ne sont pas adjacentes et que les
cellules à renvoyées ne le sont pas non plus, est-ce possible de récupérer
ces données dans le fichier cible, sur des lignes et colonnes adjacentes ?
D'avance merci pour votre aide.
Papounet26
Bonjour.
Tes cellules "toto" sont toutes en colonne A ou n'importe où ?
Cordialement.
Daniel
"Papounet26" a écrit dans le message
de news:Bonjour à tous,
Sur Excel 2003.
J'ai un fichier de saisie contenant certaines données confidentielles et
d'autres non. Je souhaite créé un fichier qui puisse récupérer les données
non confidentielles et sur lequel je pourrait, simplement à l'aide d'une
macro, faire une mise à jour. Les deux fichiers se trouvent sur deux
serveurs
différents.
Exemple :
Dans le fichier source, si la cellule A2 contient "Toto", je souhaite
renvoyer dans des cellules du fichier cible les valeurs de la cellule A1,
celle de la cellule D1, puis celle de la cellule J1.
Sachant que les lignes contenant "Toto" ne sont pas adjacentes et que les
cellules à renvoyées ne le sont pas non plus, est-ce possible de récupérer
ces données dans le fichier cible, sur des lignes et colonnes adjacentes ?
D'avance merci pour votre aide.
Papounet26
Bonjour.
Tes cellules "toto" sont toutes en colonne A ou n'importe où ?
Cordialement.
Daniel
"Papounet26" <Papounet26@discussions.microsoft.com> a écrit dans le message
de news: DCEF410B-7572-4A31-8DA3-0C79329F3966@microsoft.com...
Bonjour à tous,
Sur Excel 2003.
J'ai un fichier de saisie contenant certaines données confidentielles et
d'autres non. Je souhaite créé un fichier qui puisse récupérer les données
non confidentielles et sur lequel je pourrait, simplement à l'aide d'une
macro, faire une mise à jour. Les deux fichiers se trouvent sur deux
serveurs
différents.
Exemple :
Dans le fichier source, si la cellule A2 contient "Toto", je souhaite
renvoyer dans des cellules du fichier cible les valeurs de la cellule A1,
celle de la cellule D1, puis celle de la cellule J1.
Sachant que les lignes contenant "Toto" ne sont pas adjacentes et que les
cellules à renvoyées ne le sont pas non plus, est-ce possible de récupérer
ces données dans le fichier cible, sur des lignes et colonnes adjacentes ?
D'avance merci pour votre aide.
Papounet26
Bonjour.
Tes cellules "toto" sont toutes en colonne A ou n'importe où ?
Cordialement.
Daniel
"Papounet26" a écrit dans le message
de news:Bonjour à tous,
Sur Excel 2003.
J'ai un fichier de saisie contenant certaines données confidentielles et
d'autres non. Je souhaite créé un fichier qui puisse récupérer les données
non confidentielles et sur lequel je pourrait, simplement à l'aide d'une
macro, faire une mise à jour. Les deux fichiers se trouvent sur deux
serveurs
différents.
Exemple :
Dans le fichier source, si la cellule A2 contient "Toto", je souhaite
renvoyer dans des cellules du fichier cible les valeurs de la cellule A1,
celle de la cellule D1, puis celle de la cellule J1.
Sachant que les lignes contenant "Toto" ne sont pas adjacentes et que les
cellules à renvoyées ne le sont pas non plus, est-ce possible de récupérer
ces données dans le fichier cible, sur des lignes et colonnes adjacentes ?
D'avance merci pour votre aide.
Papounet26
Daniel,
J'apporte une petite correction.
En fait les cellules "Toto" sont toujours en colonne B (et non pas A) et
je
souhaite récupérer des données situées en colonne A,D et J de la même
ligne.
Milles excuses pour cette petite erreur.
Papounet26Bonjour.
Tes cellules "toto" sont toutes en colonne A ou n'importe où ?
Cordialement.
Daniel
"Papounet26" a écrit dans le
message
de news:Bonjour à tous,
Sur Excel 2003.
J'ai un fichier de saisie contenant certaines données confidentielles
et
d'autres non. Je souhaite créé un fichier qui puisse récupérer les
données
non confidentielles et sur lequel je pourrait, simplement à l'aide
d'une
macro, faire une mise à jour. Les deux fichiers se trouvent sur deux
serveurs
différents.
Exemple :
Dans le fichier source, si la cellule A2 contient "Toto", je souhaite
renvoyer dans des cellules du fichier cible les valeurs de la cellule
A1,
celle de la cellule D1, puis celle de la cellule J1.
Sachant que les lignes contenant "Toto" ne sont pas adjacentes et que
les
cellules à renvoyées ne le sont pas non plus, est-ce possible de
récupérer
ces données dans le fichier cible, sur des lignes et colonnes
adjacentes ?
D'avance merci pour votre aide.
Papounet26
Daniel,
J'apporte une petite correction.
En fait les cellules "Toto" sont toujours en colonne B (et non pas A) et
je
souhaite récupérer des données situées en colonne A,D et J de la même
ligne.
Milles excuses pour cette petite erreur.
Papounet26
Bonjour.
Tes cellules "toto" sont toutes en colonne A ou n'importe où ?
Cordialement.
Daniel
"Papounet26" <Papounet26@discussions.microsoft.com> a écrit dans le
message
de news: DCEF410B-7572-4A31-8DA3-0C79329F3966@microsoft.com...
Bonjour à tous,
Sur Excel 2003.
J'ai un fichier de saisie contenant certaines données confidentielles
et
d'autres non. Je souhaite créé un fichier qui puisse récupérer les
données
non confidentielles et sur lequel je pourrait, simplement à l'aide
d'une
macro, faire une mise à jour. Les deux fichiers se trouvent sur deux
serveurs
différents.
Exemple :
Dans le fichier source, si la cellule A2 contient "Toto", je souhaite
renvoyer dans des cellules du fichier cible les valeurs de la cellule
A1,
celle de la cellule D1, puis celle de la cellule J1.
Sachant que les lignes contenant "Toto" ne sont pas adjacentes et que
les
cellules à renvoyées ne le sont pas non plus, est-ce possible de
récupérer
ces données dans le fichier cible, sur des lignes et colonnes
adjacentes ?
D'avance merci pour votre aide.
Papounet26
Daniel,
J'apporte une petite correction.
En fait les cellules "Toto" sont toujours en colonne B (et non pas A) et
je
souhaite récupérer des données situées en colonne A,D et J de la même
ligne.
Milles excuses pour cette petite erreur.
Papounet26Bonjour.
Tes cellules "toto" sont toutes en colonne A ou n'importe où ?
Cordialement.
Daniel
"Papounet26" a écrit dans le
message
de news:Bonjour à tous,
Sur Excel 2003.
J'ai un fichier de saisie contenant certaines données confidentielles
et
d'autres non. Je souhaite créé un fichier qui puisse récupérer les
données
non confidentielles et sur lequel je pourrait, simplement à l'aide
d'une
macro, faire une mise à jour. Les deux fichiers se trouvent sur deux
serveurs
différents.
Exemple :
Dans le fichier source, si la cellule A2 contient "Toto", je souhaite
renvoyer dans des cellules du fichier cible les valeurs de la cellule
A1,
celle de la cellule D1, puis celle de la cellule J1.
Sachant que les lignes contenant "Toto" ne sont pas adjacentes et que
les
cellules à renvoyées ne le sont pas non plus, est-ce possible de
récupérer
ces données dans le fichier cible, sur des lignes et colonnes
adjacentes ?
D'avance merci pour votre aide.
Papounet26
Essaie :
Sub test()
' les classeurs Source.xls et Cible.xls sont ouverts
' la macro est dans Source.xls
Dim c As Range, Adr As String, Ligne As Long
Ligne = 1
Set c = Range("B:B").Find("toto", , , xlWhole)
Adr = c.Address
Do While Not c Is Nothing
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 1) = _
c.Offset(0, -1).Value
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 2) = _
c.Offset(0, 2).Value
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 3) = _
c.Offset(0, 8).Value
Ligne = Ligne + 1
Set c = Range("B:B").FindNext(c)
If c.Address = Adr Then Exit Sub
Loop
End Sub
Daniel
"Papounet26" a écrit dans le message
de news:Daniel,
J'apporte une petite correction.
En fait les cellules "Toto" sont toujours en colonne B (et non pas A) et
je
souhaite récupérer des données situées en colonne A,D et J de la même
ligne.
Milles excuses pour cette petite erreur.
Papounet26Bonjour.
Tes cellules "toto" sont toutes en colonne A ou n'importe où ?
Cordialement.
Daniel
"Papounet26" a écrit dans le
message
de news:Bonjour à tous,
Sur Excel 2003.
J'ai un fichier de saisie contenant certaines données confidentielles
et
d'autres non. Je souhaite créé un fichier qui puisse récupérer les
données
non confidentielles et sur lequel je pourrait, simplement à l'aide
d'une
macro, faire une mise à jour. Les deux fichiers se trouvent sur deux
serveurs
différents.
Exemple :
Dans le fichier source, si la cellule A2 contient "Toto", je souhaite
renvoyer dans des cellules du fichier cible les valeurs de la cellule
A1,
celle de la cellule D1, puis celle de la cellule J1.
Sachant que les lignes contenant "Toto" ne sont pas adjacentes et que
les
cellules à renvoyées ne le sont pas non plus, est-ce possible de
récupérer
ces données dans le fichier cible, sur des lignes et colonnes
adjacentes ?
D'avance merci pour votre aide.
Papounet26
Essaie :
Sub test()
' les classeurs Source.xls et Cible.xls sont ouverts
' la macro est dans Source.xls
Dim c As Range, Adr As String, Ligne As Long
Ligne = 1
Set c = Range("B:B").Find("toto", , , xlWhole)
Adr = c.Address
Do While Not c Is Nothing
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 1) = _
c.Offset(0, -1).Value
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 2) = _
c.Offset(0, 2).Value
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 3) = _
c.Offset(0, 8).Value
Ligne = Ligne + 1
Set c = Range("B:B").FindNext(c)
If c.Address = Adr Then Exit Sub
Loop
End Sub
Daniel
"Papounet26" <Papounet26@discussions.microsoft.com> a écrit dans le message
de news: 99EF8888-C798-4E23-B88E-E5BF5C0C5AD7@microsoft.com...
Daniel,
J'apporte une petite correction.
En fait les cellules "Toto" sont toujours en colonne B (et non pas A) et
je
souhaite récupérer des données situées en colonne A,D et J de la même
ligne.
Milles excuses pour cette petite erreur.
Papounet26
Bonjour.
Tes cellules "toto" sont toutes en colonne A ou n'importe où ?
Cordialement.
Daniel
"Papounet26" <Papounet26@discussions.microsoft.com> a écrit dans le
message
de news: DCEF410B-7572-4A31-8DA3-0C79329F3966@microsoft.com...
Bonjour à tous,
Sur Excel 2003.
J'ai un fichier de saisie contenant certaines données confidentielles
et
d'autres non. Je souhaite créé un fichier qui puisse récupérer les
données
non confidentielles et sur lequel je pourrait, simplement à l'aide
d'une
macro, faire une mise à jour. Les deux fichiers se trouvent sur deux
serveurs
différents.
Exemple :
Dans le fichier source, si la cellule A2 contient "Toto", je souhaite
renvoyer dans des cellules du fichier cible les valeurs de la cellule
A1,
celle de la cellule D1, puis celle de la cellule J1.
Sachant que les lignes contenant "Toto" ne sont pas adjacentes et que
les
cellules à renvoyées ne le sont pas non plus, est-ce possible de
récupérer
ces données dans le fichier cible, sur des lignes et colonnes
adjacentes ?
D'avance merci pour votre aide.
Papounet26
Essaie :
Sub test()
' les classeurs Source.xls et Cible.xls sont ouverts
' la macro est dans Source.xls
Dim c As Range, Adr As String, Ligne As Long
Ligne = 1
Set c = Range("B:B").Find("toto", , , xlWhole)
Adr = c.Address
Do While Not c Is Nothing
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 1) = _
c.Offset(0, -1).Value
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 2) = _
c.Offset(0, 2).Value
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 3) = _
c.Offset(0, 8).Value
Ligne = Ligne + 1
Set c = Range("B:B").FindNext(c)
If c.Address = Adr Then Exit Sub
Loop
End Sub
Daniel
"Papounet26" a écrit dans le message
de news:Daniel,
J'apporte une petite correction.
En fait les cellules "Toto" sont toujours en colonne B (et non pas A) et
je
souhaite récupérer des données situées en colonne A,D et J de la même
ligne.
Milles excuses pour cette petite erreur.
Papounet26Bonjour.
Tes cellules "toto" sont toutes en colonne A ou n'importe où ?
Cordialement.
Daniel
"Papounet26" a écrit dans le
message
de news:Bonjour à tous,
Sur Excel 2003.
J'ai un fichier de saisie contenant certaines données confidentielles
et
d'autres non. Je souhaite créé un fichier qui puisse récupérer les
données
non confidentielles et sur lequel je pourrait, simplement à l'aide
d'une
macro, faire une mise à jour. Les deux fichiers se trouvent sur deux
serveurs
différents.
Exemple :
Dans le fichier source, si la cellule A2 contient "Toto", je souhaite
renvoyer dans des cellules du fichier cible les valeurs de la cellule
A1,
celle de la cellule D1, puis celle de la cellule J1.
Sachant que les lignes contenant "Toto" ne sont pas adjacentes et que
les
cellules à renvoyées ne le sont pas non plus, est-ce possible de
récupérer
ces données dans le fichier cible, sur des lignes et colonnes
adjacentes ?
D'avance merci pour votre aide.
Papounet26
Essaie :
Sub test()
' les classeurs Source.xls et Cible.xls sont ouverts
' la macro est dans Source.xls
Dim c As Range, Adr As String, Ligne As Long
Ligne = 1
Set c = Range("B:B").Find("toto", , , xlWhole)
Adr = c.Address
Do While Not c Is Nothing
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 1) = _
c.Offset(0, -1).Value
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 2) = _
c.Offset(0, 2).Value
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 3) = _
c.Offset(0, 8).Value
Ligne = Ligne + 1
Set c = Range("B:B").FindNext(c)
If c.Address = Adr Then Exit Sub
Loop
End Sub
Daniel
"Papounet26" a écrit dans le message
de news:Daniel,
J'apporte une petite correction.
En fait les cellules "Toto" sont toujours en colonne B (et non pas A) et
je
souhaite récupérer des données situées en colonne A,D et J de la même
ligne.
Milles excuses pour cette petite erreur.
Papounet26Bonjour.
Tes cellules "toto" sont toutes en colonne A ou n'importe où ?
Cordialement.
Daniel
"Papounet26" a écrit dans le
message
de news:Bonjour à tous,
Sur Excel 2003.
J'ai un fichier de saisie contenant certaines données confidentielles
et
d'autres non. Je souhaite créé un fichier qui puisse récupérer les
données
non confidentielles et sur lequel je pourrait, simplement à l'aide
d'une
macro, faire une mise à jour. Les deux fichiers se trouvent sur deux
serveurs
différents.
Exemple :
Dans le fichier source, si la cellule A2 contient "Toto", je souhaite
renvoyer dans des cellules du fichier cible les valeurs de la cellule
A1,
celle de la cellule D1, puis celle de la cellule J1.
Sachant que les lignes contenant "Toto" ne sont pas adjacentes et que
les
cellules à renvoyées ne le sont pas non plus, est-ce possible de
récupérer
ces données dans le fichier cible, sur des lignes et colonnes
adjacentes ?
D'avance merci pour votre aide.
Papounet26
Essaie :
Sub test()
' les classeurs Source.xls et Cible.xls sont ouverts
' la macro est dans Source.xls
Dim c As Range, Adr As String, Ligne As Long
Ligne = 1
Set c = Range("B:B").Find("toto", , , xlWhole)
Adr = c.Address
Do While Not c Is Nothing
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 1) = _
c.Offset(0, -1).Value
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 2) = _
c.Offset(0, 2).Value
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 3) = _
c.Offset(0, 8).Value
Ligne = Ligne + 1
Set c = Range("B:B").FindNext(c)
If c.Address = Adr Then Exit Sub
Loop
End Sub
Daniel
"Papounet26" <Papounet26@discussions.microsoft.com> a écrit dans le message
de news: 99EF8888-C798-4E23-B88E-E5BF5C0C5AD7@microsoft.com...
Daniel,
J'apporte une petite correction.
En fait les cellules "Toto" sont toujours en colonne B (et non pas A) et
je
souhaite récupérer des données situées en colonne A,D et J de la même
ligne.
Milles excuses pour cette petite erreur.
Papounet26
Bonjour.
Tes cellules "toto" sont toutes en colonne A ou n'importe où ?
Cordialement.
Daniel
"Papounet26" <Papounet26@discussions.microsoft.com> a écrit dans le
message
de news: DCEF410B-7572-4A31-8DA3-0C79329F3966@microsoft.com...
Bonjour à tous,
Sur Excel 2003.
J'ai un fichier de saisie contenant certaines données confidentielles
et
d'autres non. Je souhaite créé un fichier qui puisse récupérer les
données
non confidentielles et sur lequel je pourrait, simplement à l'aide
d'une
macro, faire une mise à jour. Les deux fichiers se trouvent sur deux
serveurs
différents.
Exemple :
Dans le fichier source, si la cellule A2 contient "Toto", je souhaite
renvoyer dans des cellules du fichier cible les valeurs de la cellule
A1,
celle de la cellule D1, puis celle de la cellule J1.
Sachant que les lignes contenant "Toto" ne sont pas adjacentes et que
les
cellules à renvoyées ne le sont pas non plus, est-ce possible de
récupérer
ces données dans le fichier cible, sur des lignes et colonnes
adjacentes ?
D'avance merci pour votre aide.
Papounet26
Essaie :
Sub test()
' les classeurs Source.xls et Cible.xls sont ouverts
' la macro est dans Source.xls
Dim c As Range, Adr As String, Ligne As Long
Ligne = 1
Set c = Range("B:B").Find("toto", , , xlWhole)
Adr = c.Address
Do While Not c Is Nothing
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 1) = _
c.Offset(0, -1).Value
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 2) = _
c.Offset(0, 2).Value
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 3) = _
c.Offset(0, 8).Value
Ligne = Ligne + 1
Set c = Range("B:B").FindNext(c)
If c.Address = Adr Then Exit Sub
Loop
End Sub
Daniel
"Papounet26" a écrit dans le message
de news:Daniel,
J'apporte une petite correction.
En fait les cellules "Toto" sont toujours en colonne B (et non pas A) et
je
souhaite récupérer des données situées en colonne A,D et J de la même
ligne.
Milles excuses pour cette petite erreur.
Papounet26Bonjour.
Tes cellules "toto" sont toutes en colonne A ou n'importe où ?
Cordialement.
Daniel
"Papounet26" a écrit dans le
message
de news:Bonjour à tous,
Sur Excel 2003.
J'ai un fichier de saisie contenant certaines données confidentielles
et
d'autres non. Je souhaite créé un fichier qui puisse récupérer les
données
non confidentielles et sur lequel je pourrait, simplement à l'aide
d'une
macro, faire une mise à jour. Les deux fichiers se trouvent sur deux
serveurs
différents.
Exemple :
Dans le fichier source, si la cellule A2 contient "Toto", je souhaite
renvoyer dans des cellules du fichier cible les valeurs de la cellule
A1,
celle de la cellule D1, puis celle de la cellule J1.
Sachant que les lignes contenant "Toto" ne sont pas adjacentes et que
les
cellules à renvoyées ne le sont pas non plus, est-ce possible de
récupérer
ces données dans le fichier cible, sur des lignes et colonnes
adjacentes ?
D'avance merci pour votre aide.
Papounet26
Daniel,
Entre temps, j'ai modifié mon fichier source. J'ai donc apporté les modifs
suivantes au code. Mes données "Toto" s'appelle en réalité "ATA" et se
trouvent maintenant en colonne C. Mon classeur cible se nomme "Tableau de
suivi des interventions" et la feuille des données source se nomme
"Saisie".
Lorsque j'execute la macro, j'ai le message suivant : "L"indice
n'appartient
pas à la sélection"
Sub test()
' les classeurs Source.xls et Cible.xls sont ouverts
' la macro est dans Source.xls
Dim c As Range, Adr As String, Ligne As Long
Ligne = 1
Set c = Range("C:C").Find("ATA", , , xlWhole)
Adr = c.Address
Do While Not c Is Nothing
Workbooks("Tableau de suivi des
interventions.xls").Sheets("Saisie").Cells(Ligne, 1) = _
c.Offset(0, -2).Value
Workbooks("Tableau de suivi des
interventions.xls").Sheets("Saisie").Cells(Ligne, 2) = _
c.Offset(0, 1).Value
Workbooks("Tableau de suivi des
interventions.xls").Sheets("Saisie").Cells(Ligne, 3) = _
c.Offset(0, 7).Value
Ligne = Ligne + 1
Set c = Range("C:C").FindNext(c)
If c.Address = Adr Then Exit Sub
Loop
End SubEssaie :
Sub test()
' les classeurs Source.xls et Cible.xls sont ouverts
' la macro est dans Source.xls
Dim c As Range, Adr As String, Ligne As Long
Ligne = 1
Set c = Range("B:B").Find("toto", , , xlWhole)
Adr = c.Address
Do While Not c Is Nothing
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 1) = _
c.Offset(0, -1).Value
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 2) = _
c.Offset(0, 2).Value
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 3) = _
c.Offset(0, 8).Value
Ligne = Ligne + 1
Set c = Range("B:B").FindNext(c)
If c.Address = Adr Then Exit Sub
Loop
End Sub
Daniel
"Papounet26" a écrit dans le
message
de news:Daniel,
J'apporte une petite correction.
En fait les cellules "Toto" sont toujours en colonne B (et non pas A)
et
je
souhaite récupérer des données situées en colonne A,D et J de la même
ligne.
Milles excuses pour cette petite erreur.
Papounet26Bonjour.
Tes cellules "toto" sont toutes en colonne A ou n'importe où ?
Cordialement.
Daniel
"Papounet26" a écrit dans le
message
de news:Bonjour à tous,
Sur Excel 2003.
J'ai un fichier de saisie contenant certaines données
confidentielles
et
d'autres non. Je souhaite créé un fichier qui puisse récupérer les
données
non confidentielles et sur lequel je pourrait, simplement à l'aide
d'une
macro, faire une mise à jour. Les deux fichiers se trouvent sur deux
serveurs
différents.
Exemple :
Dans le fichier source, si la cellule A2 contient "Toto", je
souhaite
renvoyer dans des cellules du fichier cible les valeurs de la
cellule
A1,
celle de la cellule D1, puis celle de la cellule J1.
Sachant que les lignes contenant "Toto" ne sont pas adjacentes et
que
les
cellules à renvoyées ne le sont pas non plus, est-ce possible de
récupérer
ces données dans le fichier cible, sur des lignes et colonnes
adjacentes ?
D'avance merci pour votre aide.
Papounet26
Daniel,
Entre temps, j'ai modifié mon fichier source. J'ai donc apporté les modifs
suivantes au code. Mes données "Toto" s'appelle en réalité "ATA" et se
trouvent maintenant en colonne C. Mon classeur cible se nomme "Tableau de
suivi des interventions" et la feuille des données source se nomme
"Saisie".
Lorsque j'execute la macro, j'ai le message suivant : "L"indice
n'appartient
pas à la sélection"
Sub test()
' les classeurs Source.xls et Cible.xls sont ouverts
' la macro est dans Source.xls
Dim c As Range, Adr As String, Ligne As Long
Ligne = 1
Set c = Range("C:C").Find("ATA", , , xlWhole)
Adr = c.Address
Do While Not c Is Nothing
Workbooks("Tableau de suivi des
interventions.xls").Sheets("Saisie").Cells(Ligne, 1) = _
c.Offset(0, -2).Value
Workbooks("Tableau de suivi des
interventions.xls").Sheets("Saisie").Cells(Ligne, 2) = _
c.Offset(0, 1).Value
Workbooks("Tableau de suivi des
interventions.xls").Sheets("Saisie").Cells(Ligne, 3) = _
c.Offset(0, 7).Value
Ligne = Ligne + 1
Set c = Range("C:C").FindNext(c)
If c.Address = Adr Then Exit Sub
Loop
End Sub
Essaie :
Sub test()
' les classeurs Source.xls et Cible.xls sont ouverts
' la macro est dans Source.xls
Dim c As Range, Adr As String, Ligne As Long
Ligne = 1
Set c = Range("B:B").Find("toto", , , xlWhole)
Adr = c.Address
Do While Not c Is Nothing
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 1) = _
c.Offset(0, -1).Value
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 2) = _
c.Offset(0, 2).Value
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 3) = _
c.Offset(0, 8).Value
Ligne = Ligne + 1
Set c = Range("B:B").FindNext(c)
If c.Address = Adr Then Exit Sub
Loop
End Sub
Daniel
"Papounet26" <Papounet26@discussions.microsoft.com> a écrit dans le
message
de news: 99EF8888-C798-4E23-B88E-E5BF5C0C5AD7@microsoft.com...
Daniel,
J'apporte une petite correction.
En fait les cellules "Toto" sont toujours en colonne B (et non pas A)
et
je
souhaite récupérer des données situées en colonne A,D et J de la même
ligne.
Milles excuses pour cette petite erreur.
Papounet26
Bonjour.
Tes cellules "toto" sont toutes en colonne A ou n'importe où ?
Cordialement.
Daniel
"Papounet26" <Papounet26@discussions.microsoft.com> a écrit dans le
message
de news: DCEF410B-7572-4A31-8DA3-0C79329F3966@microsoft.com...
Bonjour à tous,
Sur Excel 2003.
J'ai un fichier de saisie contenant certaines données
confidentielles
et
d'autres non. Je souhaite créé un fichier qui puisse récupérer les
données
non confidentielles et sur lequel je pourrait, simplement à l'aide
d'une
macro, faire une mise à jour. Les deux fichiers se trouvent sur deux
serveurs
différents.
Exemple :
Dans le fichier source, si la cellule A2 contient "Toto", je
souhaite
renvoyer dans des cellules du fichier cible les valeurs de la
cellule
A1,
celle de la cellule D1, puis celle de la cellule J1.
Sachant que les lignes contenant "Toto" ne sont pas adjacentes et
que
les
cellules à renvoyées ne le sont pas non plus, est-ce possible de
récupérer
ces données dans le fichier cible, sur des lignes et colonnes
adjacentes ?
D'avance merci pour votre aide.
Papounet26
Daniel,
Entre temps, j'ai modifié mon fichier source. J'ai donc apporté les modifs
suivantes au code. Mes données "Toto" s'appelle en réalité "ATA" et se
trouvent maintenant en colonne C. Mon classeur cible se nomme "Tableau de
suivi des interventions" et la feuille des données source se nomme
"Saisie".
Lorsque j'execute la macro, j'ai le message suivant : "L"indice
n'appartient
pas à la sélection"
Sub test()
' les classeurs Source.xls et Cible.xls sont ouverts
' la macro est dans Source.xls
Dim c As Range, Adr As String, Ligne As Long
Ligne = 1
Set c = Range("C:C").Find("ATA", , , xlWhole)
Adr = c.Address
Do While Not c Is Nothing
Workbooks("Tableau de suivi des
interventions.xls").Sheets("Saisie").Cells(Ligne, 1) = _
c.Offset(0, -2).Value
Workbooks("Tableau de suivi des
interventions.xls").Sheets("Saisie").Cells(Ligne, 2) = _
c.Offset(0, 1).Value
Workbooks("Tableau de suivi des
interventions.xls").Sheets("Saisie").Cells(Ligne, 3) = _
c.Offset(0, 7).Value
Ligne = Ligne + 1
Set c = Range("C:C").FindNext(c)
If c.Address = Adr Then Exit Sub
Loop
End SubEssaie :
Sub test()
' les classeurs Source.xls et Cible.xls sont ouverts
' la macro est dans Source.xls
Dim c As Range, Adr As String, Ligne As Long
Ligne = 1
Set c = Range("B:B").Find("toto", , , xlWhole)
Adr = c.Address
Do While Not c Is Nothing
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 1) = _
c.Offset(0, -1).Value
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 2) = _
c.Offset(0, 2).Value
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 3) = _
c.Offset(0, 8).Value
Ligne = Ligne + 1
Set c = Range("B:B").FindNext(c)
If c.Address = Adr Then Exit Sub
Loop
End Sub
Daniel
"Papounet26" a écrit dans le
message
de news:Daniel,
J'apporte une petite correction.
En fait les cellules "Toto" sont toujours en colonne B (et non pas A)
et
je
souhaite récupérer des données situées en colonne A,D et J de la même
ligne.
Milles excuses pour cette petite erreur.
Papounet26Bonjour.
Tes cellules "toto" sont toutes en colonne A ou n'importe où ?
Cordialement.
Daniel
"Papounet26" a écrit dans le
message
de news:Bonjour à tous,
Sur Excel 2003.
J'ai un fichier de saisie contenant certaines données
confidentielles
et
d'autres non. Je souhaite créé un fichier qui puisse récupérer les
données
non confidentielles et sur lequel je pourrait, simplement à l'aide
d'une
macro, faire une mise à jour. Les deux fichiers se trouvent sur deux
serveurs
différents.
Exemple :
Dans le fichier source, si la cellule A2 contient "Toto", je
souhaite
renvoyer dans des cellules du fichier cible les valeurs de la
cellule
A1,
celle de la cellule D1, puis celle de la cellule J1.
Sachant que les lignes contenant "Toto" ne sont pas adjacentes et
que
les
cellules à renvoyées ne le sont pas non plus, est-ce possible de
récupérer
ces données dans le fichier cible, sur des lignes et colonnes
adjacentes ?
D'avance merci pour votre aide.
Papounet26
Sais-tu sur quelle ligne la macro se plante ?
Daniel
"Papounet26" a écrit dans le message
de news:Daniel,
Entre temps, j'ai modifié mon fichier source. J'ai donc apporté les modifs
suivantes au code. Mes données "Toto" s'appelle en réalité "ATA" et se
trouvent maintenant en colonne C. Mon classeur cible se nomme "Tableau de
suivi des interventions" et la feuille des données source se nomme
"Saisie".
Lorsque j'execute la macro, j'ai le message suivant : "L"indice
n'appartient
pas à la sélection"
Sub test()
' les classeurs Source.xls et Cible.xls sont ouverts
' la macro est dans Source.xls
Dim c As Range, Adr As String, Ligne As Long
Ligne = 1
Set c = Range("C:C").Find("ATA", , , xlWhole)
Adr = c.Address
Do While Not c Is Nothing
Workbooks("Tableau de suivi des
interventions.xls").Sheets("Saisie").Cells(Ligne, 1) = _
c.Offset(0, -2).Value
Workbooks("Tableau de suivi des
interventions.xls").Sheets("Saisie").Cells(Ligne, 2) = _
c.Offset(0, 1).Value
Workbooks("Tableau de suivi des
interventions.xls").Sheets("Saisie").Cells(Ligne, 3) = _
c.Offset(0, 7).Value
Ligne = Ligne + 1
Set c = Range("C:C").FindNext(c)
If c.Address = Adr Then Exit Sub
Loop
End SubEssaie :
Sub test()
' les classeurs Source.xls et Cible.xls sont ouverts
' la macro est dans Source.xls
Dim c As Range, Adr As String, Ligne As Long
Ligne = 1
Set c = Range("B:B").Find("toto", , , xlWhole)
Adr = c.Address
Do While Not c Is Nothing
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 1) = _
c.Offset(0, -1).Value
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 2) = _
c.Offset(0, 2).Value
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 3) = _
c.Offset(0, 8).Value
Ligne = Ligne + 1
Set c = Range("B:B").FindNext(c)
If c.Address = Adr Then Exit Sub
Loop
End Sub
Daniel
"Papounet26" a écrit dans le
message
de news:Daniel,
J'apporte une petite correction.
En fait les cellules "Toto" sont toujours en colonne B (et non pas A)
et
je
souhaite récupérer des données situées en colonne A,D et J de la même
ligne.
Milles excuses pour cette petite erreur.
Papounet26Bonjour.
Tes cellules "toto" sont toutes en colonne A ou n'importe où ?
Cordialement.
Daniel
"Papounet26" a écrit dans le
message
de news:Bonjour à tous,
Sur Excel 2003.
J'ai un fichier de saisie contenant certaines données
confidentielles
et
d'autres non. Je souhaite créé un fichier qui puisse récupérer les
données
non confidentielles et sur lequel je pourrait, simplement à l'aide
d'une
macro, faire une mise à jour. Les deux fichiers se trouvent sur deux
serveurs
différents.
Exemple :
Dans le fichier source, si la cellule A2 contient "Toto", je
souhaite
renvoyer dans des cellules du fichier cible les valeurs de la
cellule
A1,
celle de la cellule D1, puis celle de la cellule J1.
Sachant que les lignes contenant "Toto" ne sont pas adjacentes et
que
les
cellules à renvoyées ne le sont pas non plus, est-ce possible de
récupérer
ces données dans le fichier cible, sur des lignes et colonnes
adjacentes ?
D'avance merci pour votre aide.
Papounet26
Sais-tu sur quelle ligne la macro se plante ?
Daniel
"Papounet26" <Papounet26@discussions.microsoft.com> a écrit dans le message
de news: 48756C48-A608-4638-B7E7-534E710B79CA@microsoft.com...
Daniel,
Entre temps, j'ai modifié mon fichier source. J'ai donc apporté les modifs
suivantes au code. Mes données "Toto" s'appelle en réalité "ATA" et se
trouvent maintenant en colonne C. Mon classeur cible se nomme "Tableau de
suivi des interventions" et la feuille des données source se nomme
"Saisie".
Lorsque j'execute la macro, j'ai le message suivant : "L"indice
n'appartient
pas à la sélection"
Sub test()
' les classeurs Source.xls et Cible.xls sont ouverts
' la macro est dans Source.xls
Dim c As Range, Adr As String, Ligne As Long
Ligne = 1
Set c = Range("C:C").Find("ATA", , , xlWhole)
Adr = c.Address
Do While Not c Is Nothing
Workbooks("Tableau de suivi des
interventions.xls").Sheets("Saisie").Cells(Ligne, 1) = _
c.Offset(0, -2).Value
Workbooks("Tableau de suivi des
interventions.xls").Sheets("Saisie").Cells(Ligne, 2) = _
c.Offset(0, 1).Value
Workbooks("Tableau de suivi des
interventions.xls").Sheets("Saisie").Cells(Ligne, 3) = _
c.Offset(0, 7).Value
Ligne = Ligne + 1
Set c = Range("C:C").FindNext(c)
If c.Address = Adr Then Exit Sub
Loop
End Sub
Essaie :
Sub test()
' les classeurs Source.xls et Cible.xls sont ouverts
' la macro est dans Source.xls
Dim c As Range, Adr As String, Ligne As Long
Ligne = 1
Set c = Range("B:B").Find("toto", , , xlWhole)
Adr = c.Address
Do While Not c Is Nothing
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 1) = _
c.Offset(0, -1).Value
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 2) = _
c.Offset(0, 2).Value
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 3) = _
c.Offset(0, 8).Value
Ligne = Ligne + 1
Set c = Range("B:B").FindNext(c)
If c.Address = Adr Then Exit Sub
Loop
End Sub
Daniel
"Papounet26" <Papounet26@discussions.microsoft.com> a écrit dans le
message
de news: 99EF8888-C798-4E23-B88E-E5BF5C0C5AD7@microsoft.com...
Daniel,
J'apporte une petite correction.
En fait les cellules "Toto" sont toujours en colonne B (et non pas A)
et
je
souhaite récupérer des données situées en colonne A,D et J de la même
ligne.
Milles excuses pour cette petite erreur.
Papounet26
Bonjour.
Tes cellules "toto" sont toutes en colonne A ou n'importe où ?
Cordialement.
Daniel
"Papounet26" <Papounet26@discussions.microsoft.com> a écrit dans le
message
de news: DCEF410B-7572-4A31-8DA3-0C79329F3966@microsoft.com...
Bonjour à tous,
Sur Excel 2003.
J'ai un fichier de saisie contenant certaines données
confidentielles
et
d'autres non. Je souhaite créé un fichier qui puisse récupérer les
données
non confidentielles et sur lequel je pourrait, simplement à l'aide
d'une
macro, faire une mise à jour. Les deux fichiers se trouvent sur deux
serveurs
différents.
Exemple :
Dans le fichier source, si la cellule A2 contient "Toto", je
souhaite
renvoyer dans des cellules du fichier cible les valeurs de la
cellule
A1,
celle de la cellule D1, puis celle de la cellule J1.
Sachant que les lignes contenant "Toto" ne sont pas adjacentes et
que
les
cellules à renvoyées ne le sont pas non plus, est-ce possible de
récupérer
ces données dans le fichier cible, sur des lignes et colonnes
adjacentes ?
D'avance merci pour votre aide.
Papounet26
Sais-tu sur quelle ligne la macro se plante ?
Daniel
"Papounet26" a écrit dans le message
de news:Daniel,
Entre temps, j'ai modifié mon fichier source. J'ai donc apporté les modifs
suivantes au code. Mes données "Toto" s'appelle en réalité "ATA" et se
trouvent maintenant en colonne C. Mon classeur cible se nomme "Tableau de
suivi des interventions" et la feuille des données source se nomme
"Saisie".
Lorsque j'execute la macro, j'ai le message suivant : "L"indice
n'appartient
pas à la sélection"
Sub test()
' les classeurs Source.xls et Cible.xls sont ouverts
' la macro est dans Source.xls
Dim c As Range, Adr As String, Ligne As Long
Ligne = 1
Set c = Range("C:C").Find("ATA", , , xlWhole)
Adr = c.Address
Do While Not c Is Nothing
Workbooks("Tableau de suivi des
interventions.xls").Sheets("Saisie").Cells(Ligne, 1) = _
c.Offset(0, -2).Value
Workbooks("Tableau de suivi des
interventions.xls").Sheets("Saisie").Cells(Ligne, 2) = _
c.Offset(0, 1).Value
Workbooks("Tableau de suivi des
interventions.xls").Sheets("Saisie").Cells(Ligne, 3) = _
c.Offset(0, 7).Value
Ligne = Ligne + 1
Set c = Range("C:C").FindNext(c)
If c.Address = Adr Then Exit Sub
Loop
End SubEssaie :
Sub test()
' les classeurs Source.xls et Cible.xls sont ouverts
' la macro est dans Source.xls
Dim c As Range, Adr As String, Ligne As Long
Ligne = 1
Set c = Range("B:B").Find("toto", , , xlWhole)
Adr = c.Address
Do While Not c Is Nothing
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 1) = _
c.Offset(0, -1).Value
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 2) = _
c.Offset(0, 2).Value
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 3) = _
c.Offset(0, 8).Value
Ligne = Ligne + 1
Set c = Range("B:B").FindNext(c)
If c.Address = Adr Then Exit Sub
Loop
End Sub
Daniel
"Papounet26" a écrit dans le
message
de news:Daniel,
J'apporte une petite correction.
En fait les cellules "Toto" sont toujours en colonne B (et non pas A)
et
je
souhaite récupérer des données situées en colonne A,D et J de la même
ligne.
Milles excuses pour cette petite erreur.
Papounet26Bonjour.
Tes cellules "toto" sont toutes en colonne A ou n'importe où ?
Cordialement.
Daniel
"Papounet26" a écrit dans le
message
de news:Bonjour à tous,
Sur Excel 2003.
J'ai un fichier de saisie contenant certaines données
confidentielles
et
d'autres non. Je souhaite créé un fichier qui puisse récupérer les
données
non confidentielles et sur lequel je pourrait, simplement à l'aide
d'une
macro, faire une mise à jour. Les deux fichiers se trouvent sur deux
serveurs
différents.
Exemple :
Dans le fichier source, si la cellule A2 contient "Toto", je
souhaite
renvoyer dans des cellules du fichier cible les valeurs de la
cellule
A1,
celle de la cellule D1, puis celle de la cellule J1.
Sachant que les lignes contenant "Toto" ne sont pas adjacentes et
que
les
cellules à renvoyées ne le sont pas non plus, est-ce possible de
récupérer
ces données dans le fichier cible, sur des lignes et colonnes
adjacentes ?
D'avance merci pour votre aide.
Papounet26
Une autre question (sans vouloir abuser) Mon fichier source a déja 980
lignes de saisie, et je voudrais démarrer mon fichier cible seulement à
partir de la 957ème ligne du fichier source. Est-ce possible ?
Une autre question (sans vouloir abuser) Mon fichier source a déja 980
lignes de saisie, et je voudrais démarrer mon fichier cible seulement à
partir de la 957ème ligne du fichier source. Est-ce possible ?
Une autre question (sans vouloir abuser) Mon fichier source a déja 980
lignes de saisie, et je voudrais démarrer mon fichier cible seulement à
partir de la 957ème ligne du fichier source. Est-ce possible ?
Daniel,
Je suis un peu perdu sur le forum, car je t'ai envoyé une reponse (avec
une
autre question) avant que je recoive la tienne et je ne sais pas si tu as
reçu un message d'alerte !!! En plus de savoir si je peut récupérer les
données à partir d'une ligne précise, je voulais savoir si s'était
possible
de garder un bouton "flottant" (toujours visible à l'écran) pour executer
ma
macro ?
A+
Papounet26Sais-tu sur quelle ligne la macro se plante ?
Daniel
"Papounet26" a écrit dans le
message
de news:Daniel,
Entre temps, j'ai modifié mon fichier source. J'ai donc apporté les
modifs
suivantes au code. Mes données "Toto" s'appelle en réalité "ATA" et se
trouvent maintenant en colonne C. Mon classeur cible se nomme "Tableau
de
suivi des interventions" et la feuille des données source se nomme
"Saisie".
Lorsque j'execute la macro, j'ai le message suivant : "L"indice
n'appartient
pas à la sélection"
Sub test()
' les classeurs Source.xls et Cible.xls sont ouverts
' la macro est dans Source.xls
Dim c As Range, Adr As String, Ligne As Long
Ligne = 1
Set c = Range("C:C").Find("ATA", , , xlWhole)
Adr = c.Address
Do While Not c Is Nothing
Workbooks("Tableau de suivi des
interventions.xls").Sheets("Saisie").Cells(Ligne, 1) = _
c.Offset(0, -2).Value
Workbooks("Tableau de suivi des
interventions.xls").Sheets("Saisie").Cells(Ligne, 2) = _
c.Offset(0, 1).Value
Workbooks("Tableau de suivi des
interventions.xls").Sheets("Saisie").Cells(Ligne, 3) = _
c.Offset(0, 7).Value
Ligne = Ligne + 1
Set c = Range("C:C").FindNext(c)
If c.Address = Adr Then Exit Sub
Loop
End SubEssaie :
Sub test()
' les classeurs Source.xls et Cible.xls sont ouverts
' la macro est dans Source.xls
Dim c As Range, Adr As String, Ligne As Long
Ligne = 1
Set c = Range("B:B").Find("toto", , , xlWhole)
Adr = c.Address
Do While Not c Is Nothing
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 1) = _
c.Offset(0, -1).Value
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 2) = _
c.Offset(0, 2).Value
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 3) = _
c.Offset(0, 8).Value
Ligne = Ligne + 1
Set c = Range("B:B").FindNext(c)
If c.Address = Adr Then Exit Sub
Loop
End Sub
Daniel
"Papounet26" a écrit dans le
message
de news:Daniel,
J'apporte une petite correction.
En fait les cellules "Toto" sont toujours en colonne B (et non pas
A)
et
je
souhaite récupérer des données situées en colonne A,D et J de la
même
ligne.
Milles excuses pour cette petite erreur.
Papounet26Bonjour.
Tes cellules "toto" sont toutes en colonne A ou n'importe où ?
Cordialement.
Daniel
"Papounet26" a écrit dans le
message
de news:Bonjour à tous,
Sur Excel 2003.
J'ai un fichier de saisie contenant certaines données
confidentielles
et
d'autres non. Je souhaite créé un fichier qui puisse récupérer
les
données
non confidentielles et sur lequel je pourrait, simplement à
l'aide
d'une
macro, faire une mise à jour. Les deux fichiers se trouvent sur
deux
serveurs
différents.
Exemple :
Dans le fichier source, si la cellule A2 contient "Toto", je
souhaite
renvoyer dans des cellules du fichier cible les valeurs de la
cellule
A1,
celle de la cellule D1, puis celle de la cellule J1.
Sachant que les lignes contenant "Toto" ne sont pas adjacentes et
que
les
cellules à renvoyées ne le sont pas non plus, est-ce possible de
récupérer
ces données dans le fichier cible, sur des lignes et colonnes
adjacentes ?
D'avance merci pour votre aide.
Papounet26
Daniel,
Je suis un peu perdu sur le forum, car je t'ai envoyé une reponse (avec
une
autre question) avant que je recoive la tienne et je ne sais pas si tu as
reçu un message d'alerte !!! En plus de savoir si je peut récupérer les
données à partir d'une ligne précise, je voulais savoir si s'était
possible
de garder un bouton "flottant" (toujours visible à l'écran) pour executer
ma
macro ?
A+
Papounet26
Sais-tu sur quelle ligne la macro se plante ?
Daniel
"Papounet26" <Papounet26@discussions.microsoft.com> a écrit dans le
message
de news: 48756C48-A608-4638-B7E7-534E710B79CA@microsoft.com...
Daniel,
Entre temps, j'ai modifié mon fichier source. J'ai donc apporté les
modifs
suivantes au code. Mes données "Toto" s'appelle en réalité "ATA" et se
trouvent maintenant en colonne C. Mon classeur cible se nomme "Tableau
de
suivi des interventions" et la feuille des données source se nomme
"Saisie".
Lorsque j'execute la macro, j'ai le message suivant : "L"indice
n'appartient
pas à la sélection"
Sub test()
' les classeurs Source.xls et Cible.xls sont ouverts
' la macro est dans Source.xls
Dim c As Range, Adr As String, Ligne As Long
Ligne = 1
Set c = Range("C:C").Find("ATA", , , xlWhole)
Adr = c.Address
Do While Not c Is Nothing
Workbooks("Tableau de suivi des
interventions.xls").Sheets("Saisie").Cells(Ligne, 1) = _
c.Offset(0, -2).Value
Workbooks("Tableau de suivi des
interventions.xls").Sheets("Saisie").Cells(Ligne, 2) = _
c.Offset(0, 1).Value
Workbooks("Tableau de suivi des
interventions.xls").Sheets("Saisie").Cells(Ligne, 3) = _
c.Offset(0, 7).Value
Ligne = Ligne + 1
Set c = Range("C:C").FindNext(c)
If c.Address = Adr Then Exit Sub
Loop
End Sub
Essaie :
Sub test()
' les classeurs Source.xls et Cible.xls sont ouverts
' la macro est dans Source.xls
Dim c As Range, Adr As String, Ligne As Long
Ligne = 1
Set c = Range("B:B").Find("toto", , , xlWhole)
Adr = c.Address
Do While Not c Is Nothing
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 1) = _
c.Offset(0, -1).Value
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 2) = _
c.Offset(0, 2).Value
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 3) = _
c.Offset(0, 8).Value
Ligne = Ligne + 1
Set c = Range("B:B").FindNext(c)
If c.Address = Adr Then Exit Sub
Loop
End Sub
Daniel
"Papounet26" <Papounet26@discussions.microsoft.com> a écrit dans le
message
de news: 99EF8888-C798-4E23-B88E-E5BF5C0C5AD7@microsoft.com...
Daniel,
J'apporte une petite correction.
En fait les cellules "Toto" sont toujours en colonne B (et non pas
A)
et
je
souhaite récupérer des données situées en colonne A,D et J de la
même
ligne.
Milles excuses pour cette petite erreur.
Papounet26
Bonjour.
Tes cellules "toto" sont toutes en colonne A ou n'importe où ?
Cordialement.
Daniel
"Papounet26" <Papounet26@discussions.microsoft.com> a écrit dans le
message
de news: DCEF410B-7572-4A31-8DA3-0C79329F3966@microsoft.com...
Bonjour à tous,
Sur Excel 2003.
J'ai un fichier de saisie contenant certaines données
confidentielles
et
d'autres non. Je souhaite créé un fichier qui puisse récupérer
les
données
non confidentielles et sur lequel je pourrait, simplement à
l'aide
d'une
macro, faire une mise à jour. Les deux fichiers se trouvent sur
deux
serveurs
différents.
Exemple :
Dans le fichier source, si la cellule A2 contient "Toto", je
souhaite
renvoyer dans des cellules du fichier cible les valeurs de la
cellule
A1,
celle de la cellule D1, puis celle de la cellule J1.
Sachant que les lignes contenant "Toto" ne sont pas adjacentes et
que
les
cellules à renvoyées ne le sont pas non plus, est-ce possible de
récupérer
ces données dans le fichier cible, sur des lignes et colonnes
adjacentes ?
D'avance merci pour votre aide.
Papounet26
Daniel,
Je suis un peu perdu sur le forum, car je t'ai envoyé une reponse (avec
une
autre question) avant que je recoive la tienne et je ne sais pas si tu as
reçu un message d'alerte !!! En plus de savoir si je peut récupérer les
données à partir d'une ligne précise, je voulais savoir si s'était
possible
de garder un bouton "flottant" (toujours visible à l'écran) pour executer
ma
macro ?
A+
Papounet26Sais-tu sur quelle ligne la macro se plante ?
Daniel
"Papounet26" a écrit dans le
message
de news:Daniel,
Entre temps, j'ai modifié mon fichier source. J'ai donc apporté les
modifs
suivantes au code. Mes données "Toto" s'appelle en réalité "ATA" et se
trouvent maintenant en colonne C. Mon classeur cible se nomme "Tableau
de
suivi des interventions" et la feuille des données source se nomme
"Saisie".
Lorsque j'execute la macro, j'ai le message suivant : "L"indice
n'appartient
pas à la sélection"
Sub test()
' les classeurs Source.xls et Cible.xls sont ouverts
' la macro est dans Source.xls
Dim c As Range, Adr As String, Ligne As Long
Ligne = 1
Set c = Range("C:C").Find("ATA", , , xlWhole)
Adr = c.Address
Do While Not c Is Nothing
Workbooks("Tableau de suivi des
interventions.xls").Sheets("Saisie").Cells(Ligne, 1) = _
c.Offset(0, -2).Value
Workbooks("Tableau de suivi des
interventions.xls").Sheets("Saisie").Cells(Ligne, 2) = _
c.Offset(0, 1).Value
Workbooks("Tableau de suivi des
interventions.xls").Sheets("Saisie").Cells(Ligne, 3) = _
c.Offset(0, 7).Value
Ligne = Ligne + 1
Set c = Range("C:C").FindNext(c)
If c.Address = Adr Then Exit Sub
Loop
End SubEssaie :
Sub test()
' les classeurs Source.xls et Cible.xls sont ouverts
' la macro est dans Source.xls
Dim c As Range, Adr As String, Ligne As Long
Ligne = 1
Set c = Range("B:B").Find("toto", , , xlWhole)
Adr = c.Address
Do While Not c Is Nothing
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 1) = _
c.Offset(0, -1).Value
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 2) = _
c.Offset(0, 2).Value
Workbooks("Cible.xls").Sheets("Feuil1").Cells(Ligne, 3) = _
c.Offset(0, 8).Value
Ligne = Ligne + 1
Set c = Range("B:B").FindNext(c)
If c.Address = Adr Then Exit Sub
Loop
End Sub
Daniel
"Papounet26" a écrit dans le
message
de news:Daniel,
J'apporte une petite correction.
En fait les cellules "Toto" sont toujours en colonne B (et non pas
A)
et
je
souhaite récupérer des données situées en colonne A,D et J de la
même
ligne.
Milles excuses pour cette petite erreur.
Papounet26Bonjour.
Tes cellules "toto" sont toutes en colonne A ou n'importe où ?
Cordialement.
Daniel
"Papounet26" a écrit dans le
message
de news:Bonjour à tous,
Sur Excel 2003.
J'ai un fichier de saisie contenant certaines données
confidentielles
et
d'autres non. Je souhaite créé un fichier qui puisse récupérer
les
données
non confidentielles et sur lequel je pourrait, simplement à
l'aide
d'une
macro, faire une mise à jour. Les deux fichiers se trouvent sur
deux
serveurs
différents.
Exemple :
Dans le fichier source, si la cellule A2 contient "Toto", je
souhaite
renvoyer dans des cellules du fichier cible les valeurs de la
cellule
A1,
celle de la cellule D1, puis celle de la cellule J1.
Sachant que les lignes contenant "Toto" ne sont pas adjacentes et
que
les
cellules à renvoyées ne le sont pas non plus, est-ce possible de
récupérer
ces données dans le fichier cible, sur des lignes et colonnes
adjacentes ?
D'avance merci pour votre aide.
Papounet26