Bonsoir
Je désire faire la chose suivante :
j'ai 2 colonnes A3:A500 et B3:B500 dont laquelle il y a des dates saisies
avec des vides parfois
Je souhaite que si les cellules de la colonnes B sont remplies, les copier
dans la colonne A
Ex : si B3 <> "" alors B3 est copié en valeur spécial en A3
si B4 <> "" alors B4 est copié en valeur spécial en A4
si B5 <> "" alors B5 est copié en valeur spécial en A5
etc...
Merci beaucoup
Flo riant
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Florian
Bonsoir j'ai contourné, je fais quelque chose de plus simple Merci à tous Flo riant
"Florian" a écrit dans le message de news:
Bonsoir Je désire faire la chose suivante : j'ai 2 colonnes A3:A500 et B3:B500 dont laquelle il y a des dates saisies avec des vides parfois Je souhaite que si les cellules de la colonnes B sont remplies, les copier dans la colonne A Ex : si B3 <> "" alors B3 est copié en valeur spécial en A3 si B4 <> "" alors B4 est copié en valeur spécial en A4 si B5 <> "" alors B5 est copié en valeur spécial en A5 etc... Merci beaucoup Flo riant
Bonsoir
j'ai contourné, je fais quelque chose de plus simple
Merci à tous
Flo riant
"Florian" <florian@toto.fr> a écrit dans le message de news:
OD9EHvvsFHA.1032@TK2MSFTNGP12.phx.gbl...
Bonsoir
Je désire faire la chose suivante :
j'ai 2 colonnes A3:A500 et B3:B500 dont laquelle il y a des dates saisies
avec des vides parfois
Je souhaite que si les cellules de la colonnes B sont remplies, les copier
dans la colonne A
Ex : si B3 <> "" alors B3 est copié en valeur spécial en A3
si B4 <> "" alors B4 est copié en valeur spécial en A4
si B5 <> "" alors B5 est copié en valeur spécial en A5
etc...
Merci beaucoup
Flo riant
Bonsoir j'ai contourné, je fais quelque chose de plus simple Merci à tous Flo riant
"Florian" a écrit dans le message de news:
Bonsoir Je désire faire la chose suivante : j'ai 2 colonnes A3:A500 et B3:B500 dont laquelle il y a des dates saisies avec des vides parfois Je souhaite que si les cellules de la colonnes B sont remplies, les copier dans la colonne A Ex : si B3 <> "" alors B3 est copié en valeur spécial en A3 si B4 <> "" alors B4 est copié en valeur spécial en A4 si B5 <> "" alors B5 est copié en valeur spécial en A5 etc... Merci beaucoup Flo riant
MPi
Salut,
Essaie quelque chose comme ça:
Dim I as integer
for I = 3 to 500 If Range("B" & I) <> "" Then Range("A" & I) = Range("B" & I).Value End if Next
Pour plus de rapidité, tu peux mettre avant la boucle Application.ScreenUpdate = False et tu remets à True après cette boucle
Michel
"Florian" a écrit dans le message de news:
Bonsoir Je désire faire la chose suivante : j'ai 2 colonnes A3:A500 et B3:B500 dont laquelle il y a des dates saisies avec des vides parfois Je souhaite que si les cellules de la colonnes B sont remplies, les copier dans la colonne A Ex : si B3 <> "" alors B3 est copié en valeur spécial en A3 si B4 <> "" alors B4 est copié en valeur spécial en A4 si B5 <> "" alors B5 est copié en valeur spécial en A5 etc... Merci beaucoup Flo riant
Salut,
Essaie quelque chose comme ça:
Dim I as integer
for I = 3 to 500
If Range("B" & I) <> "" Then
Range("A" & I) = Range("B" & I).Value
End if
Next
Pour plus de rapidité, tu peux mettre avant la boucle
Application.ScreenUpdate = False
et tu remets à True après cette boucle
Michel
"Florian" <florian@toto.fr> a écrit dans le message de
news:OD9EHvvsFHA.1032@TK2MSFTNGP12.phx.gbl...
Bonsoir
Je désire faire la chose suivante :
j'ai 2 colonnes A3:A500 et B3:B500 dont laquelle il y a des dates saisies
avec des vides parfois
Je souhaite que si les cellules de la colonnes B sont remplies, les copier
dans la colonne A
Ex : si B3 <> "" alors B3 est copié en valeur spécial en A3
si B4 <> "" alors B4 est copié en valeur spécial en A4
si B5 <> "" alors B5 est copié en valeur spécial en A5
etc...
Merci beaucoup
Flo riant
for I = 3 to 500 If Range("B" & I) <> "" Then Range("A" & I) = Range("B" & I).Value End if Next
Pour plus de rapidité, tu peux mettre avant la boucle Application.ScreenUpdate = False et tu remets à True après cette boucle
Michel
"Florian" a écrit dans le message de news:
Bonsoir Je désire faire la chose suivante : j'ai 2 colonnes A3:A500 et B3:B500 dont laquelle il y a des dates saisies avec des vides parfois Je souhaite que si les cellules de la colonnes B sont remplies, les copier dans la colonne A Ex : si B3 <> "" alors B3 est copié en valeur spécial en A3 si B4 <> "" alors B4 est copié en valeur spécial en A4 si B5 <> "" alors B5 est copié en valeur spécial en A5 etc... Merci beaucoup Flo riant
Patrick Fredin
Bonjour,
En VBA :
Sub UpdateDates() Dim iCpt as Integer
For iCpt = 3 To 500 If Not IsEmpty(Range("B" & iCpt)) Then Range("A" & iCpt) = Range("B" & iCpt) End If Next End Sub
Cordialement.
-- Patrick
"Florian" wrote:
Bonsoir Je désire faire la chose suivante : j'ai 2 colonnes A3:A500 et B3:B500 dont laquelle il y a des dates saisies avec des vides parfois Je souhaite que si les cellules de la colonnes B sont remplies, les copier dans la colonne A Ex : si B3 <> "" alors B3 est copié en valeur spécial en A3 si B4 <> "" alors B4 est copié en valeur spécial en A4 si B5 <> "" alors B5 est copié en valeur spécial en A5 etc... Merci beaucoup Flo riant
Bonjour,
En VBA :
Sub UpdateDates()
Dim iCpt as Integer
For iCpt = 3 To 500
If Not IsEmpty(Range("B" & iCpt)) Then
Range("A" & iCpt) = Range("B" & iCpt)
End If
Next
End Sub
Cordialement.
--
Patrick
"Florian" wrote:
Bonsoir
Je désire faire la chose suivante :
j'ai 2 colonnes A3:A500 et B3:B500 dont laquelle il y a des dates saisies
avec des vides parfois
Je souhaite que si les cellules de la colonnes B sont remplies, les copier
dans la colonne A
Ex : si B3 <> "" alors B3 est copié en valeur spécial en A3
si B4 <> "" alors B4 est copié en valeur spécial en A4
si B5 <> "" alors B5 est copié en valeur spécial en A5
etc...
Merci beaucoup
Flo riant
For iCpt = 3 To 500 If Not IsEmpty(Range("B" & iCpt)) Then Range("A" & iCpt) = Range("B" & iCpt) End If Next End Sub
Cordialement.
-- Patrick
"Florian" wrote:
Bonsoir Je désire faire la chose suivante : j'ai 2 colonnes A3:A500 et B3:B500 dont laquelle il y a des dates saisies avec des vides parfois Je souhaite que si les cellules de la colonnes B sont remplies, les copier dans la colonne A Ex : si B3 <> "" alors B3 est copié en valeur spécial en A3 si B4 <> "" alors B4 est copié en valeur spécial en A4 si B5 <> "" alors B5 est copié en valeur spécial en A5 etc... Merci beaucoup Flo riant
Florian
Merci beaucoup à tous Flo riant
"Patrick Fredin" a écrit dans le message de news:
Bonjour,
En VBA :
Sub UpdateDates() Dim iCpt as Integer
For iCpt = 3 To 500 If Not IsEmpty(Range("B" & iCpt)) Then Range("A" & iCpt) = Range("B" & iCpt) End If Next End Sub
Cordialement.
-- Patrick
"Florian" wrote:
Bonsoir Je désire faire la chose suivante : j'ai 2 colonnes A3:A500 et B3:B500 dont laquelle il y a des dates saisies avec des vides parfois Je souhaite que si les cellules de la colonnes B sont remplies, les copier dans la colonne A Ex : si B3 <> "" alors B3 est copié en valeur spécial en A3 si B4 <> "" alors B4 est copié en valeur spécial en A4 si B5 <> "" alors B5 est copié en valeur spécial en A5 etc... Merci beaucoup Flo riant
Merci beaucoup à tous
Flo riant
"Patrick Fredin" <nospam_patrick.fredin@iquebec.com> a écrit dans le message
de news: 3F30E5EF-0762-4CF8-9CC0-437852A0E833@microsoft.com...
Bonjour,
En VBA :
Sub UpdateDates()
Dim iCpt as Integer
For iCpt = 3 To 500
If Not IsEmpty(Range("B" & iCpt)) Then
Range("A" & iCpt) = Range("B" & iCpt)
End If
Next
End Sub
Cordialement.
--
Patrick
"Florian" wrote:
Bonsoir
Je désire faire la chose suivante :
j'ai 2 colonnes A3:A500 et B3:B500 dont laquelle il y a des dates saisies
avec des vides parfois
Je souhaite que si les cellules de la colonnes B sont remplies, les
copier
dans la colonne A
Ex : si B3 <> "" alors B3 est copié en valeur spécial en A3
si B4 <> "" alors B4 est copié en valeur spécial en A4
si B5 <> "" alors B5 est copié en valeur spécial en A5
etc...
Merci beaucoup
Flo riant
For iCpt = 3 To 500 If Not IsEmpty(Range("B" & iCpt)) Then Range("A" & iCpt) = Range("B" & iCpt) End If Next End Sub
Cordialement.
-- Patrick
"Florian" wrote:
Bonsoir Je désire faire la chose suivante : j'ai 2 colonnes A3:A500 et B3:B500 dont laquelle il y a des dates saisies avec des vides parfois Je souhaite que si les cellules de la colonnes B sont remplies, les copier dans la colonne A Ex : si B3 <> "" alors B3 est copié en valeur spécial en A3 si B4 <> "" alors B4 est copié en valeur spécial en A4 si B5 <> "" alors B5 est copié en valeur spécial en A5 etc... Merci beaucoup Flo riant
