Excel - Valeur Zero et suppression
EmilieM
-
Mike-31 Messages postés 19571 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 19571 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
J'ai une colonne (cf. ex colonne A) comportant des nombres ainsi que plusieurs fois le chiffre 0. Je souhaiterai supprimer les valeurs zéro et que les chiffre situé en dessous d'une valeur 0 la remplace dans la cellule. Mais j'aimerai que cela se fasse dans une autre colonne (cf. ex colonne B) que celle d'origine.
Exemple:
A B
2 2
0 3
3 4
0 5
4 6
5 9
6
0
9
Cela est assez urgent, quelqu'un aurait il une solution?
Emilie
J'ai une colonne (cf. ex colonne A) comportant des nombres ainsi que plusieurs fois le chiffre 0. Je souhaiterai supprimer les valeurs zéro et que les chiffre situé en dessous d'une valeur 0 la remplace dans la cellule. Mais j'aimerai que cela se fasse dans une autre colonne (cf. ex colonne B) que celle d'origine.
Exemple:
A B
2 2
0 3
3 4
0 5
4 6
5 9
6
0
9
Cela est assez urgent, quelqu'un aurait il une solution?
Emilie
A voir également:
- Excel - Valeur Zero et suppression
- Remettre a zero un pc - Guide
- Word et excel gratuit - Guide
- Forcer suppression fichier - Guide
- Liste déroulante excel - Guide
- Si et ou excel - Guide
12 réponses
Bonjours
Si j'ai bien compris:
En prennant ton exemple
Dans la colonne A tu veux supprimer le 0 en 2éme ligne, que le 3 prenne sa place.
et dans la B, le 4 doit prendre la place du 3?
iama
Si j'ai bien compris:
En prennant ton exemple
Dans la colonne A tu veux supprimer le 0 en 2éme ligne, que le 3 prenne sa place.
et dans la B, le 4 doit prendre la place du 3?
iama
OK
A coté ( Avant) de ta colonne tu insert au besoin une colonne.
Tu increment ces cellules de 1 à n.
Tu selectionne les 2 colonnes, que tu trie par ordre chronologie de la colonne A,
tu suprime les premiére cellules de la colonne qui contienne 0,
ensuite tu reselectionne les deux colonnes que tu trie en fonction de la colonne contenant les chiffre de 1 à n par ordre chronologique.
PS avant fais la sauvegarde de sécurité
iama
A coté ( Avant) de ta colonne tu insert au besoin une colonne.
Tu increment ces cellules de 1 à n.
Tu selectionne les 2 colonnes, que tu trie par ordre chronologie de la colonne A,
tu suprime les premiére cellules de la colonne qui contienne 0,
ensuite tu reselectionne les deux colonnes que tu trie en fonction de la colonne contenant les chiffre de 1 à n par ordre chronologique.
PS avant fais la sauvegarde de sécurité
iama
Salut,
Ce problème doit se traiter en VBA, dans mon code, la plage à traiter commence en A2
Colles ce code dans un module et associes le à un bouton. Si tu as un problème fais signe
Sub test()
Dim Lig As Long
Dim LigFinA As Long
Dim Col As Integer
Dim NbrLig As Long
Const PremLig = 2 'Première ligne à traiter
Col = 1 'colonne à traiter
LigFinA = Range("A65536").End(xlUp).Row + 1
With Sheets("Feuil1")
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = PremLig To NbrLig
If .Cells(Lig, Col).Value = 0 Then
Cells(Lig, Col + 1) = Cells(Lig + 1, Col)
End If
Next
End With
MsgBox ("MODIFICATION EFFECTUE")
End Sub
Ce problème doit se traiter en VBA, dans mon code, la plage à traiter commence en A2
Colles ce code dans un module et associes le à un bouton. Si tu as un problème fais signe
Sub test()
Dim Lig As Long
Dim LigFinA As Long
Dim Col As Integer
Dim NbrLig As Long
Const PremLig = 2 'Première ligne à traiter
Col = 1 'colonne à traiter
LigFinA = Range("A65536").End(xlUp).Row + 1
With Sheets("Feuil1")
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = PremLig To NbrLig
If .Cells(Lig, Col).Value = 0 Then
Cells(Lig, Col + 1) = Cells(Lig + 1, Col)
End If
Next
End With
MsgBox ("MODIFICATION EFFECTUE")
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Re,
J'ai lu en diagonale testes plutôt ce code et on verra demain pour l'alléger
Sub Macro1()
Dim Lig As Long
Dim LigFinA As Long
Dim Col As Integer
Dim NbrLig As Long
Const PremLig = 2 'Première ligne à traiter
Col = 2 'colonne à traiter
Range("A2", Range("A65536").End(xlUp)).Copy
Range("A2").Offset(0, 1).Select
ActiveSheet.Paste
LigFinA = Range("B65536").End(xlUp).Row + 1
With Sheets("Feuil1")
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = PremLig To NbrLig
If .Cells(Lig, Col).Value = 0 Then
Cells(Lig, Col).Delete Shift:=xlUp
End If
Next
End With
MsgBox ("MODIFICATION EFFECTUE")
End Sub
J'ai lu en diagonale testes plutôt ce code et on verra demain pour l'alléger
Sub Macro1()
Dim Lig As Long
Dim LigFinA As Long
Dim Col As Integer
Dim NbrLig As Long
Const PremLig = 2 'Première ligne à traiter
Col = 2 'colonne à traiter
Range("A2", Range("A65536").End(xlUp)).Copy
Range("A2").Offset(0, 1).Select
ActiveSheet.Paste
LigFinA = Range("B65536").End(xlUp).Row + 1
With Sheets("Feuil1")
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = PremLig To NbrLig
If .Cells(Lig, Col).Value = 0 Then
Cells(Lig, Col).Delete Shift:=xlUp
End If
Next
End With
MsgBox ("MODIFICATION EFFECTUE")
End Sub
Bonjour,
La macro de Mike fonctionne mais je souhaiterai avoir la méme macro qui s'applique au colonne H et I avec H comme colonne source et I comme colonne de destination. Cela est il possible?
Emilie.
La macro de Mike fonctionne mais je souhaiterai avoir la méme macro qui s'applique au colonne H et I avec H comme colonne source et I comme colonne de destination. Cela est il possible?
Emilie.
Re,
Comme je te l'ai dit, si c'est ce que tu cherches je reverrai le code rapidement écrit et les deux zéro ne posent pas de problème.
Pour ne pas écrire plusieurs codes, que veux tu exactement que le code s'applique colonne A et retranscrit les valeurs en B et la même chose pour la colonne H et retranscrit en I ou simplement retranscrire les valeurs de H en I
Comme je te l'ai dit, si c'est ce que tu cherches je reverrai le code rapidement écrit et les deux zéro ne posent pas de problème.
Pour ne pas écrire plusieurs codes, que veux tu exactement que le code s'applique colonne A et retranscrit les valeurs en B et la même chose pour la colonne H et retranscrit en I ou simplement retranscrire les valeurs de H en I
Oui, je souhaiterai que si j'ai 2 zéros cela les supprime et que ca remonte les ligne au nombre De Zéro présent. Si j'en ai 3 que ca remonte de 3 lignes, etc....
Pour les colonnes peut importe je modifirai la macro en fonction de mes besoins.
Pour les colonnes peut importe je modifirai la macro en fonction de mes besoins.
Bonjour,
Pour plus d'efficacité et par respect des intervenants évite les doublons ou bien signale-le par un lien.
Voir ici
eric
Pour plus d'efficacité et par respect des intervenants évite les doublons ou bien signale-le par un lien.
Voir ici
eric
Re,
Effectivement, ouvrir plusieurs discussions n'est pas la chose à faire, salut Eriiic
regardes ce code qui recopiera les données de la cellule A2 à la dernière cellule non vide de la colonne A, pour les retranscrire en B et supprimer les données égale à 0 en conservant les autres données et les cellules vides. S'il faut traiter les cellules vides comme les cellules contenant la valeur 0, ce n'est pas un problème.
De même pour l'adapter à une colonne bien précise.
Sub Macro1()
Range([A2], [A65000].End(xlUp)).Copy
[A2].Offset(0, 1).Select
ActiveSheet.Paste
Do While WorksheetFunction.CountIf(Selection, 0) <> 0
For Each Cell In Selection
If Cell.Value <> "" And Cell.Value = 0 Then
Cell.Delete Shift:=xlUp '
End If
Next
Loop
MsgBox ("MODIFICATION EFFECTUE")
End Sub
Effectivement, ouvrir plusieurs discussions n'est pas la chose à faire, salut Eriiic
regardes ce code qui recopiera les données de la cellule A2 à la dernière cellule non vide de la colonne A, pour les retranscrire en B et supprimer les données égale à 0 en conservant les autres données et les cellules vides. S'il faut traiter les cellules vides comme les cellules contenant la valeur 0, ce n'est pas un problème.
De même pour l'adapter à une colonne bien précise.
Sub Macro1()
Range([A2], [A65000].End(xlUp)).Copy
[A2].Offset(0, 1).Select
ActiveSheet.Paste
Do While WorksheetFunction.CountIf(Selection, 0) <> 0
For Each Cell In Selection
If Cell.Value <> "" And Cell.Value = 0 Then
Cell.Delete Shift:=xlUp '
End If
Next
Loop
MsgBox ("MODIFICATION EFFECTUE")
End Sub
dans l'exemple donné, A est la colonne de départ, avec les 0, et B est le résultat escompté.