Bonsoir à tous,
Je voudrais utiliser cette macro (dont je ne suis pas l'auteur) pour qu'elle
me recopie dans les cellules vide de la colonne A la valeur immédiatement au
dessus (idem pour col B)
Sub remplirvide()
On Error Resume Next
'Selection de la plage de reference pour les cellules vides
For Each C In ActiveSheet.Range("a1:a" & Range("c65356").End(xlUp).Row)
If C.Value = "" Then
'Remplissage des cellules vides de la colonne de reference
C.Value = C.Offset(-1, 0).Value
'Remplissage des cellules vides de la 2 colonne à droite de celle de
reference
C.Offset(0, 1).Value = C.Offset(-1, 1)
End If
Next C
End Sub
Cela marche presque parfaitement bien !
Mon problème est le suivant :
J'ai dans la colonne A des valeurs Texte (références d'articles) dont
certaines ne sont composeés que de chiffres et commencent par 0 (zéro), dans
ce cas les valeurs recopiées sont numériques et mon "0" disparait en début
de ref...
un spécialiste pourrait-il me corriger ce code pour remédier à cela ? de
façon qu'un "0125648" soit recopié "0125648" et non pas "125648"
Merci
Domi
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
isabelle
bonjour Domi,
modifie, If C.Value = "" Then par If Not IsNumeric(c) and C.Value = "" then
isabelle
Bonsoir à tous, Je voudrais utiliser cette macro (dont je ne suis pas l'auteur) pour qu'elle me recopie dans les cellules vide de la colonne A la valeur immédiatement au dessus (idem pour col B)
Sub remplirvide() On Error Resume Next 'Selection de la plage de reference pour les cellules vides For Each C In ActiveSheet.Range("a1:a" & Range("c65356").End(xlUp).Row) If C.Value = "" Then 'Remplissage des cellules vides de la colonne de reference C.Value = C.Offset(-1, 0).Value 'Remplissage des cellules vides de la 2 colonne à droite de celle de reference C.Offset(0, 1).Value = C.Offset(-1, 1) End If Next C End Sub
Cela marche presque parfaitement bien ! Mon problème est le suivant : J'ai dans la colonne A des valeurs Texte (références d'articles) dont certaines ne sont composeés que de chiffres et commencent par 0 (zéro), dans ce cas les valeurs recopiées sont numériques et mon "0" disparait en début de ref... un spécialiste pourrait-il me corriger ce code pour remédier à cela ? de façon qu'un "0125648" soit recopié "0125648" et non pas "125648" Merci Domi
bonjour Domi,
modifie,
If C.Value = "" Then
par
If Not IsNumeric(c) and C.Value = "" then
isabelle
Bonsoir à tous,
Je voudrais utiliser cette macro (dont je ne suis pas l'auteur) pour qu'elle
me recopie dans les cellules vide de la colonne A la valeur immédiatement au
dessus (idem pour col B)
Sub remplirvide()
On Error Resume Next
'Selection de la plage de reference pour les cellules vides
For Each C In ActiveSheet.Range("a1:a" & Range("c65356").End(xlUp).Row)
If C.Value = "" Then
'Remplissage des cellules vides de la colonne de reference
C.Value = C.Offset(-1, 0).Value
'Remplissage des cellules vides de la 2 colonne à droite de celle de
reference
C.Offset(0, 1).Value = C.Offset(-1, 1)
End If
Next C
End Sub
Cela marche presque parfaitement bien !
Mon problème est le suivant :
J'ai dans la colonne A des valeurs Texte (références d'articles) dont
certaines ne sont composeés que de chiffres et commencent par 0 (zéro), dans
ce cas les valeurs recopiées sont numériques et mon "0" disparait en début
de ref...
un spécialiste pourrait-il me corriger ce code pour remédier à cela ? de
façon qu'un "0125648" soit recopié "0125648" et non pas "125648"
Merci
Domi
modifie, If C.Value = "" Then par If Not IsNumeric(c) and C.Value = "" then
isabelle
Bonsoir à tous, Je voudrais utiliser cette macro (dont je ne suis pas l'auteur) pour qu'elle me recopie dans les cellules vide de la colonne A la valeur immédiatement au dessus (idem pour col B)
Sub remplirvide() On Error Resume Next 'Selection de la plage de reference pour les cellules vides For Each C In ActiveSheet.Range("a1:a" & Range("c65356").End(xlUp).Row) If C.Value = "" Then 'Remplissage des cellules vides de la colonne de reference C.Value = C.Offset(-1, 0).Value 'Remplissage des cellules vides de la 2 colonne à droite de celle de reference C.Offset(0, 1).Value = C.Offset(-1, 1) End If Next C End Sub
Cela marche presque parfaitement bien ! Mon problème est le suivant : J'ai dans la colonne A des valeurs Texte (références d'articles) dont certaines ne sont composeés que de chiffres et commencent par 0 (zéro), dans ce cas les valeurs recopiées sont numériques et mon "0" disparait en début de ref... un spécialiste pourrait-il me corriger ce code pour remédier à cela ? de façon qu'un "0125648" soit recopié "0125648" et non pas "125648" Merci Domi
