Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel MACRO-2

MACRO-2

10 réponses
Avatar
yansec
Re-bonjour

je recherche une macro qui me copie les cellules de la colonne A dans les
cellules de la colonne H sur les mêmes lignes si les cellules de la colonne
H sont vides

mefci d'avance
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
Avatar
isabelle
bonjour yansec,

Sub Macro1()
For i = 1 To Range("A65536").End(xlUp).Row
If Range("H" & i) = 0 Then
Range("A" & i).Copy Range("H" & i)
Application.CutCopyMode = False
End If
Next
End Sub

isabelle


Re-bonjour

je recherche une macro qui me copie les cellules de la colonne A dans les
cellules de la colonne H sur les mêmes lignes si les cellules de la colonne
H sont vides

mefci d'avance




Avatar
Jacky
Bonsoir,
Ceci peut-être
'--------
Sub jj()
For Each c In Range("a1:a" & Range("a65536").End(3).Row)
If Range("h" & c.Row) = "" Then Range("h" & c.Row) = c
Next
End Sub

'-----------
--
Salutations
JJ

"yansec" a écrit dans le message de news:

Re-bonjour

je recherche une macro qui me copie les cellules de la colonne A dans les
cellules de la colonne H sur les mêmes lignes si les cellules de la
colonne H sont vides

mefci d'avance



Avatar
Jacquouille
Bonsoir Isabeau
Le Monsieur, il a dit :
si les cellules de la colonne H sont vides.
Ne mettrions-nous pas ="" au lieu de = 0 dans cette phrase
If Range("H" & i) = 0 Then ???
Tout au plaisir de vous lire, je vous prie ..... -))



--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.

"isabelle" a écrit dans le message de news:
etCm$
bonjour yansec,

Sub Macro1()
For i = 1 To Range("A65536").End(xlUp).Row
If Range("H" & i) = 0 Then
Range("A" & i).Copy Range("H" & i)
Application.CutCopyMode = False
End If
Next
End Sub

isabelle


Re-bonjour

je recherche une macro qui me copie les cellules de la colonne A dans les
cellules de la colonne H sur les mêmes lignes si les cellules de la
colonne H sont vides

mefci d'avance




Avatar
yansec
Re-bonsoir
Merci jacky
ça marche impeccable
celle d'Isabelle ne marche pas , j'ai du mal m'exprimer
en tout cas merci à tous les 2


"Jacky" a écrit dans le message de news:

Bonsoir,
Ceci peut-être
'--------
Sub jj()
For Each c In Range("a1:a" & Range("a65536").End(3).Row)
If Range("h" & c.Row) = "" Then Range("h" & c.Row) = c
Next
End Sub

'-----------
--
Salutations
JJ

"yansec" a écrit dans le message de news:

Re-bonjour

je recherche une macro qui me copie les cellules de la colonne A dans les
cellules de la colonne H sur les mêmes lignes si les cellules de la
colonne H sont vides

mefci d'avance







Avatar
isabelle
;-) comme il est difficile d'évalué le vide d'excel :

Empty
Les variables Empty correspondent à 0 dans un contexte numérique
et à une chaîne de longueur nulle ("") dans un contexte de chaîne.

isabelle


Bonsoir Isabeau
Le Monsieur, il a dit :
si les cellules de la colonne H sont vides.
Ne mettrions-nous pas ="" au lieu de = 0 dans cette phrase

If Range("H" & i) = 0 Then ???



Tout au plaisir de vous lire, je vous prie ..... -))





Avatar
isabelle
bonjour yansec,

autre solution pour reproduire la mise en forme de la colonne A

Sub Macro1()
For i = 1 To Range("A65536").End(xlUp).Row
If IsEmpty(Range("H" & i)) Then
Range("A" & i).Copy Range("H" & i)
Application.CutCopyMode = False
End If
Next
End Sub

isabelle


Re-bonsoir
Merci jacky
ça marche impeccable
celle d'Isabelle ne marche pas , j'ai du mal m'exprimer
en tout cas merci à tous les 2


"Jacky" a écrit dans le message de news:


Bonsoir,
Ceci peut-être
'--------
Sub jj()
For Each c In Range("a1:a" & Range("a65536").End(3).Row)
If Range("h" & c.Row) = "" Then Range("h" & c.Row) = c
Next
End Sub

'-----------
--
Salutations
JJ

"yansec" a écrit dans le message de news:


Re-bonjour

je recherche une macro qui me copie les cellules de la colonne A dans les
cellules de la colonne H sur les mêmes lignes si les cellules de la
colonne H sont vides

mefci d'avance











Avatar
Jacky
Bonsoir Isabelle

L'ennui avec "IsEmpty", c'est que si par le plus grand des hasards la
cellule contient une formule,(même si celle-ci donne comme résultat "") elle
est considérée comme "non vide"

Bonne soirée
JJ

"isabelle" a écrit dans le message de news:

bonjour yansec,

autre solution pour reproduire la mise en forme de la colonne A

Sub Macro1()
For i = 1 To Range("A65536").End(xlUp).Row
If IsEmpty(Range("H" & i)) Then
Range("A" & i).Copy Range("H" & i)
Application.CutCopyMode = False
End If
Next
End Sub

isabelle


Re-bonsoir
Merci jacky
ça marche impeccable
celle d'Isabelle ne marche pas , j'ai du mal m'exprimer
en tout cas merci à tous les 2


"Jacky" a écrit dans le message de news:


Bonsoir,
Ceci peut-être
'--------
Sub jj()
For Each c In Range("a1:a" & Range("a65536").End(3).Row)
If Range("h" & c.Row) = "" Then Range("h" & c.Row) = c
Next
End Sub

'-----------
--
Salutations
JJ

"yansec" a écrit dans le message de news:


Re-bonjour

je recherche une macro qui me copie les cellules de la colonne A dans
les cellules de la colonne H sur les mêmes lignes si les cellules de la
colonne H sont vides

mefci d'avance












Avatar
isabelle
oui, et de la l'importance de spécifié la nature du vide lorsqu'on utilise ce mot.

isabelle, parti reprendre des forces car complètement vidé ;-)


Bonsoir Isabelle

L'ennui avec "IsEmpty", c'est que si par le plus grand des hasards la
cellule contient une formule,(même si celle-ci donne comme résultat "") elle
est considérée comme "non vide"

Bonne soirée
JJ

"isabelle" a écrit dans le message de news:


bonjour yansec,

autre solution pour reproduire la mise en forme de la colonne A

Sub Macro1()
For i = 1 To Range("A65536").End(xlUp).Row
If IsEmpty(Range("H" & i)) Then
Range("A" & i).Copy Range("H" & i)
Application.CutCopyMode = False
End If
Next
End Sub

isabelle



Re-bonsoir
Merci jacky
ça marche impeccable
celle d'Isabelle ne marche pas , j'ai du mal m'exprimer
en tout cas merci à tous les 2


"Jacky" a écrit dans le message de news:



Bonsoir,
Ceci peut-être
'--------
Sub jj()
For Each c In Range("a1:a" & Range("a65536").End(3).Row)
If Range("h" & c.Row) = "" Then Range("h" & c.Row) = c
Next
End Sub

'-----------
--
Salutations
JJ

"yansec" a écrit dans le message de news:



Re-bonjour

je recherche une macro qui me copie les cellules de la colonne A dans
les cellules de la colonne H sur les mêmes lignes si les cellules de la
colonne H sont vides

mefci d'avance














Avatar
Jacky
Bon appétit

JJ

"isabelle" a écrit dans le message de news:

oui, et de la l'importance de spécifié la nature du vide lorsqu'on utilise
ce mot.

isabelle, parti reprendre des forces car complètement vidé ;-)


Bonsoir Isabelle

L'ennui avec "IsEmpty", c'est que si par le plus grand des hasards la
cellule contient une formule,(même si celle-ci donne comme résultat "")
elle est considérée comme "non vide"

Bonne soirée
JJ

"isabelle" a écrit dans le message de news:


bonjour yansec,

autre solution pour reproduire la mise en forme de la colonne A

Sub Macro1()
For i = 1 To Range("A65536").End(xlUp).Row
If IsEmpty(Range("H" & i)) Then
Range("A" & i).Copy Range("H" & i)
Application.CutCopyMode = False
End If
Next
End Sub

isabelle



Re-bonsoir
Merci jacky
ça marche impeccable
celle d'Isabelle ne marche pas , j'ai du mal m'exprimer
en tout cas merci à tous les 2


"Jacky" a écrit dans le message de news:



Bonsoir,
Ceci peut-être
'--------
Sub jj()
For Each c In Range("a1:a" & Range("a65536").End(3).Row)
If Range("h" & c.Row) = "" Then Range("h" & c.Row) = c
Next
End Sub

'-----------
--
Salutations
JJ

"yansec" a écrit dans le message de news:



Re-bonjour

je recherche une macro qui me copie les cellules de la colonne A dans
les cellules de la colonne H sur les mêmes lignes si les cellules de
la colonne H sont vides

mefci d'avance
















Avatar
Jacquouille
Mais ma chère,
un vide, c'est comme un trou : rien avec quelque chose autour. -))

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.

"isabelle" a écrit dans le message de news:

oui, et de la l'importance de spécifié la nature du vide lorsqu'on utilise
ce mot.

isabelle, parti reprendre des forces car complètement vidé ;-)


Bonsoir Isabelle

L'ennui avec "IsEmpty", c'est que si par le plus grand des hasards la
cellule contient une formule,(même si celle-ci donne comme résultat "")
elle est considérée comme "non vide"

Bonne soirée
JJ

"isabelle" a écrit dans le message de news:


bonjour yansec,

autre solution pour reproduire la mise en forme de la colonne A

Sub Macro1()
For i = 1 To Range("A65536").End(xlUp).Row
If IsEmpty(Range("H" & i)) Then
Range("A" & i).Copy Range("H" & i)
Application.CutCopyMode = False
End If
Next
End Sub

isabelle



Re-bonsoir
Merci jacky
ça marche impeccable
celle d'Isabelle ne marche pas , j'ai du mal m'exprimer
en tout cas merci à tous les 2


"Jacky" a écrit dans le message de news:



Bonsoir,
Ceci peut-être
'--------
Sub jj()
For Each c In Range("a1:a" & Range("a65536").End(3).Row)
If Range("h" & c.Row) = "" Then Range("h" & c.Row) = c
Next
End Sub

'-----------
--
Salutations
JJ

"yansec" a écrit dans le message de news:



Re-bonjour

je recherche une macro qui me copie les cellules de la colonne A dans
les cellules de la colonne H sur les mêmes lignes si les cellules de
la colonne H sont vides

mefci d'avance