Comment supprimer les valeur 0 sur une ligne
luky123654
Messages postés
60
Statut
Membre
-
gbinforme Messages postés 14930 Date d'inscription Statut Contributeur Dernière intervention -
gbinforme Messages postés 14930 Date d'inscription Statut Contributeur Dernière intervention -
bonjour comment supprimer sur une ligne les zero dans plusieurs colonnes un chiffre dans chaque case EX
26 /0/ 0 / 0 /0/ 17/ 0 /0/ 25 /24/ 30/
et le resultat 26/17/25/24/30 c'est ok
pas 17/24/25/26/30
si il y a une personne aimable pour résoudre ce problème .
merci d avance
Luky
26 /0/ 0 / 0 /0/ 17/ 0 /0/ 25 /24/ 30/
et le resultat 26/17/25/24/30 c'est ok
pas 17/24/25/26/30
si il y a une personne aimable pour résoudre ce problème .
merci d avance
Luky
3 réponses
-
Bonjour,
Il faudrait préciser ta demande car les "/" séparateurs de cellules doivent-ils être dans le résultat ?
Avec cette fonction personnalisée et les "/" cela donne ton résultatPublic Function concat(plg) Dim elm As Range For Each elm In plg If elm <> 0 Then concat = concat & IIf(concat = "", "", "/") & elm Next elm End Function
pour l'appeler=concat(A1:K1)
avec ta plage de cellule en A1:K1
-
merci d avoir répondu voila ce que je veux excuse moi .
dans chaque cellule il y a des chiffre ex . A1 chiffre 7, B1 le chiffre 36, C1 le chiffre 0, D1 chiffre 14 , e1le chiffre 0 comment arriver a que sa soie 7-36-14- dans l'ordre
pas comme trier du plus petit au plus grand ex 7-14-36 sa je ne veux pas
comment retirer les 0 et la cellule qui ce trouve avec le 0
bien a toi luky
-
-
Bonjour,
les supprimer réellement ou qu'ils ne se voient plus est suffisant ?
Tu as 2 méthodes simples pour la 2nde solution : décocher l'option, ou utiliser un format personnalisé.
eric
-
Salut à tous.
Effectivement il nous faudrait davantage d'indications ...-
-
Bonjour,
Voilà une VBA comme tu dis, qui te supprimes les cellule à zéro dans la plage sélectionnée.Public Sub concat() 'concatener en supprimant les cellules sans valeur Dim lig As Long, col As Integer, nbs As Long With Selection ' page sélectionnée If .Cells.Count < 2 Then MsgBox "Pas de sélection de plage": Exit Sub For lig = 1 To .Rows.Count For col = .Cells(lig, Columns.Count).End(xlToLeft).Column To 1 Step -1 If .Cells(lig, col).Value = 0 Then .Cells(lig, col).Delete xlShiftToLeft: nbs = nbs + 1 Next col Next lig End With MsgBox nbs & " cellules supprimées" End Sub -
-
-
