Bonjour Mireille,
Tu colles la procdure suivante dans un module standard :
Attention, dans le document que tu as publi,
Calculs = Sheet7
Delays Distribution by Dpt = Sheet8
Sheet7 et Sheet8 reprsente la proprit "Name" des
objets "Feuille" visible dans la fentre VBE.
Tu devras adapter leur nom dans le code si dans
ton application, ces noms sont diffrents.
'-------------------------------------------
Sub test()
Dim Rg As Range, C As Range
Dim JeTrouveDans As Range
Application.ScreenUpdating = False
Application.EnableEvents = False
With Sheet7
Set Rg = .Range("B1:B" & _
.Range("B65536").End(xlUp).Row)
End With
With Sheet8
Set JeTrouveDans = .Range("B1:B" & _
.Range("B65536").End(xlUp).Row)
End With
On Error Resume Next
For Each C In Rg
JeTrouveDans.Find(what:=Trim(C), LookIn:=xlValues) _
.Offset(, 1) = C.Offset(, 2).Value
Next
Application.EnableEvents = True
End Sub
'-------------------------------------------
"mireille" a crit dans le message de groupe de
discussion :
Bonjour !
En ci-joint le fichier qui me pose pb :
http://www.cijoint.fr/cjlink.php?file=cj200904/cijEcmB3oh.xls
J'ai besoin d'une macro VBA pour remplir la feuiile "Delays Distribution by
Dpt" (ou DDD) avec les informations de la feuille "Calculs".
Et bien sr, le tableau de la feuille "Calculs" peut changer. Les colonnes
restent les mmes, mais je peux avoir plus de lignes.
La colonne C contient la mme information de ligne 1 la fin.
Le colonne B ne contient pas de doublons.
Dans la colonne B de feuille "Calculs", il y a le Dpt (qui correspond
colonne B de la feuille "DDD")
La colonne C indique o les rsultats (dans les colonnes D, E, F) doivent
tre crits dans la feuille DDD.
Si cells(1,3)="Q1 / T1" alors on copie D, E, F de feuille "Calculs" dans C,
D, E de DDD
Si cells(1,3) = "Q2 / T2" alors on copie D, E, F de feuille "Calculs" dans
F, G, H de DDD
et ainsi de suite
Merci pour votre aide,
Parce que sinon, j'en ai pour tout le week-end (au minimum !)
Mireille
Bonjour Mireille,
Tu colles la procdure suivante dans un module standard :
Attention, dans le document que tu as publi,
Calculs = Sheet7
Delays Distribution by Dpt = Sheet8
Sheet7 et Sheet8 reprsente la proprit "Name" des
objets "Feuille" visible dans la fentre VBE.
Tu devras adapter leur nom dans le code si dans
ton application, ces noms sont diffrents.
'-------------------------------------------
Sub test()
Dim Rg As Range, C As Range
Dim JeTrouveDans As Range
Application.ScreenUpdating = False
Application.EnableEvents = False
With Sheet7
Set Rg = .Range("B1:B" & _
.Range("B65536").End(xlUp).Row)
End With
With Sheet8
Set JeTrouveDans = .Range("B1:B" & _
.Range("B65536").End(xlUp).Row)
End With
On Error Resume Next
For Each C In Rg
JeTrouveDans.Find(what:=Trim(C), LookIn:=xlValues) _
.Offset(, 1) = C.Offset(, 2).Value
Next
Application.EnableEvents = True
End Sub
'-------------------------------------------
"mireille" <mireille@discussions.microsoft.com> a crit dans le message de groupe de
discussion : B89F37C0-B860-44E3-AAA3-19A6386D9B3D@microsoft.com...
Bonjour !
En ci-joint le fichier qui me pose pb :
http://www.cijoint.fr/cjlink.php?file=cj200904/cijEcmB3oh.xls
J'ai besoin d'une macro VBA pour remplir la feuiile "Delays Distribution by
Dpt" (ou DDD) avec les informations de la feuille "Calculs".
Et bien sr, le tableau de la feuille "Calculs" peut changer. Les colonnes
restent les mmes, mais je peux avoir plus de lignes.
La colonne C contient la mme information de ligne 1 la fin.
Le colonne B ne contient pas de doublons.
Dans la colonne B de feuille "Calculs", il y a le Dpt (qui correspond
colonne B de la feuille "DDD")
La colonne C indique o les rsultats (dans les colonnes D, E, F) doivent
tre crits dans la feuille DDD.
Si cells(1,3)="Q1 / T1" alors on copie D, E, F de feuille "Calculs" dans C,
D, E de DDD
Si cells(1,3) = "Q2 / T2" alors on copie D, E, F de feuille "Calculs" dans
F, G, H de DDD
et ainsi de suite
Merci pour votre aide,
Parce que sinon, j'en ai pour tout le week-end (au minimum !)
Mireille
Bonjour Mireille,
Tu colles la procdure suivante dans un module standard :
Attention, dans le document que tu as publi,
Calculs = Sheet7
Delays Distribution by Dpt = Sheet8
Sheet7 et Sheet8 reprsente la proprit "Name" des
objets "Feuille" visible dans la fentre VBE.
Tu devras adapter leur nom dans le code si dans
ton application, ces noms sont diffrents.
'-------------------------------------------
Sub test()
Dim Rg As Range, C As Range
Dim JeTrouveDans As Range
Application.ScreenUpdating = False
Application.EnableEvents = False
With Sheet7
Set Rg = .Range("B1:B" & _
.Range("B65536").End(xlUp).Row)
End With
With Sheet8
Set JeTrouveDans = .Range("B1:B" & _
.Range("B65536").End(xlUp).Row)
End With
On Error Resume Next
For Each C In Rg
JeTrouveDans.Find(what:=Trim(C), LookIn:=xlValues) _
.Offset(, 1) = C.Offset(, 2).Value
Next
Application.EnableEvents = True
End Sub
'-------------------------------------------
"mireille" a crit dans le message de groupe de
discussion :
Bonjour !
En ci-joint le fichier qui me pose pb :
http://www.cijoint.fr/cjlink.php?file=cj200904/cijEcmB3oh.xls
J'ai besoin d'une macro VBA pour remplir la feuiile "Delays Distribution by
Dpt" (ou DDD) avec les informations de la feuille "Calculs".
Et bien sr, le tableau de la feuille "Calculs" peut changer. Les colonnes
restent les mmes, mais je peux avoir plus de lignes.
La colonne C contient la mme information de ligne 1 la fin.
Le colonne B ne contient pas de doublons.
Dans la colonne B de feuille "Calculs", il y a le Dpt (qui correspond
colonne B de la feuille "DDD")
La colonne C indique o les rsultats (dans les colonnes D, E, F) doivent
tre crits dans la feuille DDD.
Si cells(1,3)="Q1 / T1" alors on copie D, E, F de feuille "Calculs" dans C,
D, E de DDD
Si cells(1,3) = "Q2 / T2" alors on copie D, E, F de feuille "Calculs" dans
F, G, H de DDD
et ainsi de suite
Merci pour votre aide,
Parce que sinon, j'en ai pour tout le week-end (au minimum !)
Mireille
Bonjour Mireille,
Tu colles la procdure suivante dans un module standard :
Attention, dans le document que tu as publi,
Calculs = Sheet7
Delays Distribution by Dpt = Sheet8
Sheet7 et Sheet8 reprsente la proprit "Name" des
objets "Feuille" visible dans la fentre VBE.
Tu devras adapter leur nom dans le code si dans
ton application, ces noms sont diffrents.
'-------------------------------------------
Sub test()
Dim Rg As Range, C As Range
Dim JeTrouveDans As Range
Application.ScreenUpdating = False
Application.EnableEvents = False
With Sheet7
Set Rg = .Range("B1:B" & _
.Range("B65536").End(xlUp).Row)
End With
With Sheet8
Set JeTrouveDans = .Range("B1:B" & _
.Range("B65536").End(xlUp).Row)
End With
On Error Resume Next
For Each C In Rg
JeTrouveDans.Find(what:=Trim(C), LookIn:=xlValues) _
.Offset(, 1) = C.Offset(, 2).Value
Next
Application.EnableEvents = True
End Sub
'-------------------------------------------
"mireille" a crit dans le message de groupe de
discussion :
Bonjour !
En ci-joint le fichier qui me pose pb :
http://www.cijoint.fr/cjlink.php?file=cj200904/cijEcmB3oh.xls
J'ai besoin d'une macro VBA pour remplir la feuiile "Delays Distribution by
Dpt" (ou DDD) avec les informations de la feuille "Calculs".
Et bien sr, le tableau de la feuille "Calculs" peut changer. Les colonnes
restent les mmes, mais je peux avoir plus de lignes.
La colonne C contient la mme information de ligne 1 la fin.
Le colonne B ne contient pas de doublons.
Dans la colonne B de feuille "Calculs", il y a le Dpt (qui correspond
colonne B de la feuille "DDD")
La colonne C indique o les rsultats (dans les colonnes D, E, F) doivent
tre crits dans la feuille DDD.
Si cells(1,3)="Q1 / T1" alors on copie D, E, F de feuille "Calculs" dans C,
D, E de DDD
Si cells(1,3) = "Q2 / T2" alors on copie D, E, F de feuille "Calculs" dans
F, G, H de DDD
et ainsi de suite
Merci pour votre aide,
Parce que sinon, j'en ai pour tout le week-end (au minimum !)
Mireille
Bonjour Mireille,
Tu colles la procdure suivante dans un module standard :
Attention, dans le document que tu as publi,
Calculs = Sheet7
Delays Distribution by Dpt = Sheet8
Sheet7 et Sheet8 reprsente la proprit "Name" des
objets "Feuille" visible dans la fentre VBE.
Tu devras adapter leur nom dans le code si dans
ton application, ces noms sont diffrents.
'-------------------------------------------
Sub test()
Dim Rg As Range, C As Range
Dim JeTrouveDans As Range
Application.ScreenUpdating = False
Application.EnableEvents = False
With Sheet7
Set Rg = .Range("B1:B" & _
.Range("B65536").End(xlUp).Row)
End With
With Sheet8
Set JeTrouveDans = .Range("B1:B" & _
.Range("B65536").End(xlUp).Row)
End With
On Error Resume Next
For Each C In Rg
JeTrouveDans.Find(what:=Trim(C), LookIn:=xlValues) _
.Offset(, 1) = C.Offset(, 2).Value
Next
Application.EnableEvents = True
End Sub
'-------------------------------------------
"mireille" <mireille@discussions.microsoft.com> a crit dans le message de groupe de
discussion : B89F37C0-B860-44E3-AAA3-19A6386D9B3D@microsoft.com...
Bonjour !
En ci-joint le fichier qui me pose pb :
http://www.cijoint.fr/cjlink.php?file=cj200904/cijEcmB3oh.xls
J'ai besoin d'une macro VBA pour remplir la feuiile "Delays Distribution by
Dpt" (ou DDD) avec les informations de la feuille "Calculs".
Et bien sr, le tableau de la feuille "Calculs" peut changer. Les colonnes
restent les mmes, mais je peux avoir plus de lignes.
La colonne C contient la mme information de ligne 1 la fin.
Le colonne B ne contient pas de doublons.
Dans la colonne B de feuille "Calculs", il y a le Dpt (qui correspond
colonne B de la feuille "DDD")
La colonne C indique o les rsultats (dans les colonnes D, E, F) doivent
tre crits dans la feuille DDD.
Si cells(1,3)="Q1 / T1" alors on copie D, E, F de feuille "Calculs" dans C,
D, E de DDD
Si cells(1,3) = "Q2 / T2" alors on copie D, E, F de feuille "Calculs" dans
F, G, H de DDD
et ainsi de suite
Merci pour votre aide,
Parce que sinon, j'en ai pour tout le week-end (au minimum !)
Mireille
Bonjour Mireille,
Tu colles la procdure suivante dans un module standard :
Attention, dans le document que tu as publi,
Calculs = Sheet7
Delays Distribution by Dpt = Sheet8
Sheet7 et Sheet8 reprsente la proprit "Name" des
objets "Feuille" visible dans la fentre VBE.
Tu devras adapter leur nom dans le code si dans
ton application, ces noms sont diffrents.
'-------------------------------------------
Sub test()
Dim Rg As Range, C As Range
Dim JeTrouveDans As Range
Application.ScreenUpdating = False
Application.EnableEvents = False
With Sheet7
Set Rg = .Range("B1:B" & _
.Range("B65536").End(xlUp).Row)
End With
With Sheet8
Set JeTrouveDans = .Range("B1:B" & _
.Range("B65536").End(xlUp).Row)
End With
On Error Resume Next
For Each C In Rg
JeTrouveDans.Find(what:=Trim(C), LookIn:=xlValues) _
.Offset(, 1) = C.Offset(, 2).Value
Next
Application.EnableEvents = True
End Sub
'-------------------------------------------
"mireille" a crit dans le message de groupe de
discussion :
Bonjour !
En ci-joint le fichier qui me pose pb :
http://www.cijoint.fr/cjlink.php?file=cj200904/cijEcmB3oh.xls
J'ai besoin d'une macro VBA pour remplir la feuiile "Delays Distribution by
Dpt" (ou DDD) avec les informations de la feuille "Calculs".
Et bien sr, le tableau de la feuille "Calculs" peut changer. Les colonnes
restent les mmes, mais je peux avoir plus de lignes.
La colonne C contient la mme information de ligne 1 la fin.
Le colonne B ne contient pas de doublons.
Dans la colonne B de feuille "Calculs", il y a le Dpt (qui correspond
colonne B de la feuille "DDD")
La colonne C indique o les rsultats (dans les colonnes D, E, F) doivent
tre crits dans la feuille DDD.
Si cells(1,3)="Q1 / T1" alors on copie D, E, F de feuille "Calculs" dans C,
D, E de DDD
Si cells(1,3) = "Q2 / T2" alors on copie D, E, F de feuille "Calculs" dans
F, G, H de DDD
et ainsi de suite
Merci pour votre aide,
Parce que sinon, j'en ai pour tout le week-end (au minimum !)
Mireille
J'ai modifi un peu la procdure et cela devrait rouler.
Dans le fichier exemple que tu as soumise, il y a 2 items
en feuille "Calculs" colonne B:B qu'on ne retrouve pas en feuille
Delays Distribution by Dpt. colonne B:B
La macro va te lister les valeurs qui n'ont pas leur quivalent le cas chant !
'------------------------------------------------------------
Sub test()
Dim Rg As Range, C As Range
Dim JeTrouveDans As Range
Dim Message As String
Application.ScreenUpdating = True
Application.EnableEvents = False
With Sheet7
Set Rg = .Range("B1:B" & _
.Range("B65536").End(xlUp).Row)
End With
With Sheet8
Set JeTrouveDans = .Range("B1:B" & _
.Range("B65536").End(xlUp).Row)
End With
On Error Resume Next
For Each C In Rg
JeTrouveDans.Find(what:=Trim(C), LookIn:=xlValues, _
Lookat:=xlPart).Offset(, 1) = C.Offset(, 2).Value
If Err <> 0 Then
Message = Message & C.Value & vbCrLf
Err = 0
End If
Next
Application.EnableEvents = True
If Message <> "" Then
MsgBox "La procdure n'a pas trouv ces items " & vbCrLf & _
"dans la feuille ""Delays Distribution by Dpt""." & _
vbCrLf & Message, vbCritical, "Attention"
End If
End Sub
'------------------------------------------------------------
"mireille" a crit dans le message de groupe de
discussion :
Merci pour ta rponse.
Mais j'ai 2 pbs.
1/ La macro fonctionne bien avec le fichier ci-joint, mais elle ne copie
aucun rsultat dans le tableau.
2/ si je copie la macro dans mon fichier et que je l'intgre la macro
existante, a bug. Pourtant les feuilles ont les mmes noms VBA que le
fichier ci-joint. L'erreur est "Run Time Error 424, Object required" la
ligne 6 (Set R ...)
merci pour ton aide
"MichDenis" a crit :
> Bonjour Mireille,
>
> Tu colles la procdure suivante dans un module standard :
>
> Attention, dans le document que tu as publi,
> Calculs = Sheet7
> Delays Distribution by Dpt = Sheet8
>
> Sheet7 et Sheet8 reprsente la proprit "Name" des
> objets "Feuille" visible dans la fentre VBE.
> Tu devras adapter leur nom dans le code si dans
> ton application, ces noms sont diffrents.
>
> '-------------------------------------------
> Sub test()
> Dim Rg As Range, C As Range
> Dim JeTrouveDans As Range
> Application.ScreenUpdating = False
> Application.EnableEvents = False
> With Sheet7
> Set Rg = .Range("B1:B" & _
> .Range("B65536").End(xlUp).Row)
> End With
>
> With Sheet8
> Set JeTrouveDans = .Range("B1:B" & _
> .Range("B65536").End(xlUp).Row)
> End With
> On Error Resume Next
> For Each C In Rg
> JeTrouveDans.Find(what:=Trim(C), LookIn:=xlValues) _
> .Offset(, 1) = C.Offset(, 2).Value
> Next
> Application.EnableEvents = True
> End Sub
> '-------------------------------------------
>
>
>
> "mireille" a crit dans le message de groupe de
> discussion :
> Bonjour !
>
> En ci-joint le fichier qui me pose pb :
> http://www.cijoint.fr/cjlink.php?file=cj200904/cijEcmB3oh.xls
>
> J'ai besoin d'une macro VBA pour remplir la feuiile "Delays Distribution by
> Dpt" (ou DDD) avec les informations de la feuille "Calculs".
> Et bien sr, le tableau de la feuille "Calculs" peut changer. Les colonnes
> restent les mmes, mais je peux avoir plus de lignes.
> La colonne C contient la mme information de ligne 1 la fin.
> Le colonne B ne contient pas de doublons.
>
> Dans la colonne B de feuille "Calculs", il y a le Dpt (qui correspond
> colonne B de la feuille "DDD")
> La colonne C indique o les rsultats (dans les colonnes D, E, F) doivent
> tre crits dans la feuille DDD.
> Si cells(1,3)="Q1 / T1" alors on copie D, E, F de feuille "Calculs" dans C,
> D, E de DDD
> Si cells(1,3) = "Q2 / T2" alors on copie D, E, F de feuille "Calculs" dans
> F, G, H de DDD
> et ainsi de suite
>
> Merci pour votre aide,
> Parce que sinon, j'en ai pour tout le week-end (au minimum !)
>
> Mireille
>
>
J'ai modifi un peu la procdure et cela devrait rouler.
Dans le fichier exemple que tu as soumise, il y a 2 items
en feuille "Calculs" colonne B:B qu'on ne retrouve pas en feuille
Delays Distribution by Dpt. colonne B:B
La macro va te lister les valeurs qui n'ont pas leur quivalent le cas chant !
'------------------------------------------------------------
Sub test()
Dim Rg As Range, C As Range
Dim JeTrouveDans As Range
Dim Message As String
Application.ScreenUpdating = True
Application.EnableEvents = False
With Sheet7
Set Rg = .Range("B1:B" & _
.Range("B65536").End(xlUp).Row)
End With
With Sheet8
Set JeTrouveDans = .Range("B1:B" & _
.Range("B65536").End(xlUp).Row)
End With
On Error Resume Next
For Each C In Rg
JeTrouveDans.Find(what:=Trim(C), LookIn:=xlValues, _
Lookat:=xlPart).Offset(, 1) = C.Offset(, 2).Value
If Err <> 0 Then
Message = Message & C.Value & vbCrLf
Err = 0
End If
Next
Application.EnableEvents = True
If Message <> "" Then
MsgBox "La procdure n'a pas trouv ces items " & vbCrLf & _
"dans la feuille ""Delays Distribution by Dpt""." & _
vbCrLf & Message, vbCritical, "Attention"
End If
End Sub
'------------------------------------------------------------
"mireille" <mireille@discussions.microsoft.com> a crit dans le message de groupe de
discussion : 10669F05-BBAA-47BE-AD9B-07A26D02E591@microsoft.com...
Merci pour ta rponse.
Mais j'ai 2 pbs.
1/ La macro fonctionne bien avec le fichier ci-joint, mais elle ne copie
aucun rsultat dans le tableau.
2/ si je copie la macro dans mon fichier et que je l'intgre la macro
existante, a bug. Pourtant les feuilles ont les mmes noms VBA que le
fichier ci-joint. L'erreur est "Run Time Error 424, Object required" la
ligne 6 (Set R ...)
merci pour ton aide
"MichDenis" a crit :
> Bonjour Mireille,
>
> Tu colles la procdure suivante dans un module standard :
>
> Attention, dans le document que tu as publi,
> Calculs = Sheet7
> Delays Distribution by Dpt = Sheet8
>
> Sheet7 et Sheet8 reprsente la proprit "Name" des
> objets "Feuille" visible dans la fentre VBE.
> Tu devras adapter leur nom dans le code si dans
> ton application, ces noms sont diffrents.
>
> '-------------------------------------------
> Sub test()
> Dim Rg As Range, C As Range
> Dim JeTrouveDans As Range
> Application.ScreenUpdating = False
> Application.EnableEvents = False
> With Sheet7
> Set Rg = .Range("B1:B" & _
> .Range("B65536").End(xlUp).Row)
> End With
>
> With Sheet8
> Set JeTrouveDans = .Range("B1:B" & _
> .Range("B65536").End(xlUp).Row)
> End With
> On Error Resume Next
> For Each C In Rg
> JeTrouveDans.Find(what:=Trim(C), LookIn:=xlValues) _
> .Offset(, 1) = C.Offset(, 2).Value
> Next
> Application.EnableEvents = True
> End Sub
> '-------------------------------------------
>
>
>
> "mireille" <mireille@discussions.microsoft.com> a crit dans le message de groupe de
> discussion : B89F37C0-B860-44E3-AAA3-19A6386D9B3D@microsoft.com...
> Bonjour !
>
> En ci-joint le fichier qui me pose pb :
> http://www.cijoint.fr/cjlink.php?file=cj200904/cijEcmB3oh.xls
>
> J'ai besoin d'une macro VBA pour remplir la feuiile "Delays Distribution by
> Dpt" (ou DDD) avec les informations de la feuille "Calculs".
> Et bien sr, le tableau de la feuille "Calculs" peut changer. Les colonnes
> restent les mmes, mais je peux avoir plus de lignes.
> La colonne C contient la mme information de ligne 1 la fin.
> Le colonne B ne contient pas de doublons.
>
> Dans la colonne B de feuille "Calculs", il y a le Dpt (qui correspond
> colonne B de la feuille "DDD")
> La colonne C indique o les rsultats (dans les colonnes D, E, F) doivent
> tre crits dans la feuille DDD.
> Si cells(1,3)="Q1 / T1" alors on copie D, E, F de feuille "Calculs" dans C,
> D, E de DDD
> Si cells(1,3) = "Q2 / T2" alors on copie D, E, F de feuille "Calculs" dans
> F, G, H de DDD
> et ainsi de suite
>
> Merci pour votre aide,
> Parce que sinon, j'en ai pour tout le week-end (au minimum !)
>
> Mireille
>
>
J'ai modifi un peu la procdure et cela devrait rouler.
Dans le fichier exemple que tu as soumise, il y a 2 items
en feuille "Calculs" colonne B:B qu'on ne retrouve pas en feuille
Delays Distribution by Dpt. colonne B:B
La macro va te lister les valeurs qui n'ont pas leur quivalent le cas chant !
'------------------------------------------------------------
Sub test()
Dim Rg As Range, C As Range
Dim JeTrouveDans As Range
Dim Message As String
Application.ScreenUpdating = True
Application.EnableEvents = False
With Sheet7
Set Rg = .Range("B1:B" & _
.Range("B65536").End(xlUp).Row)
End With
With Sheet8
Set JeTrouveDans = .Range("B1:B" & _
.Range("B65536").End(xlUp).Row)
End With
On Error Resume Next
For Each C In Rg
JeTrouveDans.Find(what:=Trim(C), LookIn:=xlValues, _
Lookat:=xlPart).Offset(, 1) = C.Offset(, 2).Value
If Err <> 0 Then
Message = Message & C.Value & vbCrLf
Err = 0
End If
Next
Application.EnableEvents = True
If Message <> "" Then
MsgBox "La procdure n'a pas trouv ces items " & vbCrLf & _
"dans la feuille ""Delays Distribution by Dpt""." & _
vbCrLf & Message, vbCritical, "Attention"
End If
End Sub
'------------------------------------------------------------
"mireille" a crit dans le message de groupe de
discussion :
Merci pour ta rponse.
Mais j'ai 2 pbs.
1/ La macro fonctionne bien avec le fichier ci-joint, mais elle ne copie
aucun rsultat dans le tableau.
2/ si je copie la macro dans mon fichier et que je l'intgre la macro
existante, a bug. Pourtant les feuilles ont les mmes noms VBA que le
fichier ci-joint. L'erreur est "Run Time Error 424, Object required" la
ligne 6 (Set R ...)
merci pour ton aide
"MichDenis" a crit :
> Bonjour Mireille,
>
> Tu colles la procdure suivante dans un module standard :
>
> Attention, dans le document que tu as publi,
> Calculs = Sheet7
> Delays Distribution by Dpt = Sheet8
>
> Sheet7 et Sheet8 reprsente la proprit "Name" des
> objets "Feuille" visible dans la fentre VBE.
> Tu devras adapter leur nom dans le code si dans
> ton application, ces noms sont diffrents.
>
> '-------------------------------------------
> Sub test()
> Dim Rg As Range, C As Range
> Dim JeTrouveDans As Range
> Application.ScreenUpdating = False
> Application.EnableEvents = False
> With Sheet7
> Set Rg = .Range("B1:B" & _
> .Range("B65536").End(xlUp).Row)
> End With
>
> With Sheet8
> Set JeTrouveDans = .Range("B1:B" & _
> .Range("B65536").End(xlUp).Row)
> End With
> On Error Resume Next
> For Each C In Rg
> JeTrouveDans.Find(what:=Trim(C), LookIn:=xlValues) _
> .Offset(, 1) = C.Offset(, 2).Value
> Next
> Application.EnableEvents = True
> End Sub
> '-------------------------------------------
>
>
>
> "mireille" a crit dans le message de groupe de
> discussion :
> Bonjour !
>
> En ci-joint le fichier qui me pose pb :
> http://www.cijoint.fr/cjlink.php?file=cj200904/cijEcmB3oh.xls
>
> J'ai besoin d'une macro VBA pour remplir la feuiile "Delays Distribution by
> Dpt" (ou DDD) avec les informations de la feuille "Calculs".
> Et bien sr, le tableau de la feuille "Calculs" peut changer. Les colonnes
> restent les mmes, mais je peux avoir plus de lignes.
> La colonne C contient la mme information de ligne 1 la fin.
> Le colonne B ne contient pas de doublons.
>
> Dans la colonne B de feuille "Calculs", il y a le Dpt (qui correspond
> colonne B de la feuille "DDD")
> La colonne C indique o les rsultats (dans les colonnes D, E, F) doivent
> tre crits dans la feuille DDD.
> Si cells(1,3)="Q1 / T1" alors on copie D, E, F de feuille "Calculs" dans C,
> D, E de DDD
> Si cells(1,3) = "Q2 / T2" alors on copie D, E, F de feuille "Calculs" dans
> F, G, H de DDD
> et ainsi de suite
>
> Merci pour votre aide,
> Parce que sinon, j'en ai pour tout le week-end (au minimum !)
>
> Mireille
>
>