Effacer le contenu premières cellules vides
Résolu/Fermé
rvz
Messages postés
35
Date d'inscription
samedi 20 octobre 2007
Statut
Membre
Dernière intervention
8 octobre 2008
-
20 oct. 2007 à 00:29
rvz Messages postés 35 Date d'inscription samedi 20 octobre 2007 Statut Membre Dernière intervention 8 octobre 2008 - 24 déc. 2007 à 00:45
rvz Messages postés 35 Date d'inscription samedi 20 octobre 2007 Statut Membre Dernière intervention 8 octobre 2008 - 24 déc. 2007 à 00:45
A voir également:
- Effacer le contenu premières cellules vides
- Excel additionner des cellules - Guide
- Fusionner le contenu de 2 cellules excel - Guide
- Word a trouvé du contenu illisible - Guide
- Effacer les cookies - Guide
- Verrouiller cellules excel - Guide
6 réponses
Papou93
Messages postés
146
Date d'inscription
mercredi 4 avril 2007
Statut
Membre
Dernière intervention
5 juin 2012
59
20 oct. 2007 à 07:39
20 oct. 2007 à 07:39
Bonjour rvz,
Je n'ai pas tout compris ce que tu cherches, cependant je te propose la macro suivante :
Ce code analyse chaque cellule de la colonne "B:B". Si la cellule contient une formule et si le résultat est égal à 0, alors on efface la formule (il n'est pas possible de tester si la cellule ="" puisqu'elle contient une formule).
Par contre, cette macro effacera toutes les formules dont le résultat est nul, et ce à partir de la lign N°1.
Si ce n'est pas ce que tu cherches, alors n'hésites pas à relancer en essayant d'être plus précis.
Cordialement.
Je n'ai pas tout compris ce que tu cherches, cependant je te propose la macro suivante :
For Each cel In Range("B:B")
If cel.Formula <> "" And cel.Value = 0 Then cel.Clear
Next
Ce code analyse chaque cellule de la colonne "B:B". Si la cellule contient une formule et si le résultat est égal à 0, alors on efface la formule (il n'est pas possible de tester si la cellule ="" puisqu'elle contient une formule).
Par contre, cette macro effacera toutes les formules dont le résultat est nul, et ce à partir de la lign N°1.
Si ce n'est pas ce que tu cherches, alors n'hésites pas à relancer en essayant d'être plus précis.
Cordialement.
rvz
Messages postés
35
Date d'inscription
samedi 20 octobre 2007
Statut
Membre
Dernière intervention
8 octobre 2008
20 oct. 2007 à 10:33
20 oct. 2007 à 10:33
Bonjour et merci pour cette première approche,c'est sympa.
Mais comment faire pour qu'elle commence à la première ligne vide d'un tableau contenant des formules sachant qu'il existe dans ce tableau des lignes vides dans les premières pour faire beau ;-) ??
A la limite,si c'est trop compliqué,je peux mettre une info dans ces premières lignes pour qu'elles ne soient plus vide car je ne veux pas non plus vous faire perdre trop de temps sur mon cas.
En tous cas,c'est super sympa d'avoir répondu à mon SOS.J'espère un jour à charge de revanche quoiqu'en programmation j'ai l'impression de n'être qu'un débutant face à vous !!!
Sinon,j'ai un autre "petit" problême :
Je sais faire une recherchev en macro mais comment faire pour que toute la ligne où le résultat se trouve se recopie dans la ligne que je veux :
Sub recherche
recherche = Range("recherche!C8 ") 'mot à rechercher"
range("Recherche!C:C")=""
n = 384 'nombre de lignes à traîter
j = 15
For i = 4 To n
If Range("Expo!B" & i) = recherche Then
Range("Recherche!C" & j) = Range("Expo!G" & i)
j = j + 1
End If
Next
End Sub
Voilà,mais si jamais,encore merci
Hervé
Mais comment faire pour qu'elle commence à la première ligne vide d'un tableau contenant des formules sachant qu'il existe dans ce tableau des lignes vides dans les premières pour faire beau ;-) ??
A la limite,si c'est trop compliqué,je peux mettre une info dans ces premières lignes pour qu'elles ne soient plus vide car je ne veux pas non plus vous faire perdre trop de temps sur mon cas.
En tous cas,c'est super sympa d'avoir répondu à mon SOS.J'espère un jour à charge de revanche quoiqu'en programmation j'ai l'impression de n'être qu'un débutant face à vous !!!
Sinon,j'ai un autre "petit" problême :
Je sais faire une recherchev en macro mais comment faire pour que toute la ligne où le résultat se trouve se recopie dans la ligne que je veux :
Sub recherche
recherche = Range("recherche!C8 ") 'mot à rechercher"
range("Recherche!C:C")=""
n = 384 'nombre de lignes à traîter
j = 15
For i = 4 To n
If Range("Expo!B" & i) = recherche Then
Range("Recherche!C" & j) = Range("Expo!G" & i)
j = j + 1
End If
Next
End Sub
Voilà,mais si jamais,encore merci
Hervé
rvz
Messages postés
35
Date d'inscription
samedi 20 octobre 2007
Statut
Membre
Dernière intervention
8 octobre 2008
21 oct. 2007 à 00:53
21 oct. 2007 à 00:53
La formule fonctionne mais elle n'élimine pas les cellules où il y'a une formule dont le résultat est ""
Papou93
Messages postés
146
Date d'inscription
mercredi 4 avril 2007
Statut
Membre
Dernière intervention
5 juin 2012
59
21 oct. 2007 à 10:42
21 oct. 2007 à 10:42
Bonjour rvz,
Je crois que j'ai mal interprété ta question :
Lorsque tu écris "Je cherche à effacer le contenu des cellules vides de la colonne b...", je crois comprendre maintenant qu'en fait tu veux supprimer ces lignes. Dans ce cas, voici le code adéquat :
Par ailleurs, cette macro n'efface pas les 1ères lignes vides, puisque le test détermine la présence d'une formule. J'ai vérifié, c'est bien le cas !
Quant à ta dernière question, essaies de cette façon :
Espérant n'être pas à côté cette fois.
Cordialement.
Je crois que j'ai mal interprété ta question :
Lorsque tu écris "Je cherche à effacer le contenu des cellules vides de la colonne b...", je crois comprendre maintenant qu'en fait tu veux supprimer ces lignes. Dans ce cas, voici le code adéquat :
For Each cel In Range("B:B")
If cel.Formula <> "" And cel.Value = 0 Then cel.EntireRow.Delete
Next
Par ailleurs, cette macro n'efface pas les 1ères lignes vides, puisque le test détermine la présence d'une formule. J'ai vérifié, c'est bien le cas !
Quant à ta dernière question, essaies de cette façon :
Sub recherche
recherche = Range("recherche!C8 ") 'mot à rechercher"
range("Recherche!C:C")=""
n = 384 'nombre de lignes à traîter
j = 15
For i = 4 To n
If Range("Expo!B" & i) = recherche Then
Range("Expo!G" & i).Copy
Range("Recherche!C" & j).select
ActiveSheet.Paste
Application.CutCopyMode = False
j = j + 1
End If
Next
End Sub
Espérant n'être pas à côté cette fois.
Cordialement.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Papoux123
Messages postés
274
Date d'inscription
jeudi 22 novembre 2007
Statut
Membre
Dernière intervention
14 avril 2016
42
7 déc. 2007 à 13:55
7 déc. 2007 à 13:55
Est-ce que quelqu'un sait comment effacer toutes les lignes vides dans exel pour regroupper les lignes qui ont du textes. On peut se fier à la colonne A pour l'effacement des lignes vides car si j'ai du texte dans cette colonne, je dois garder cette ligne et si je n'ai rien dans une ligne de la colonne A, je dois effacer la ligne complètement.
Merci a celle ou celui qui me donnera un coup de main
Merci a celle ou celui qui me donnera un coup de main
rvz
Messages postés
35
Date d'inscription
samedi 20 octobre 2007
Statut
Membre
Dernière intervention
8 octobre 2008
24 déc. 2007 à 00:45
24 déc. 2007 à 00:45
Bonsoir,
Désolé de n'avoir pu répondre plus tôt mais travail oblige et ce fut laborieux.
Je vais tester ces formules.
Mais j'aimerais vous remercier de l'aide que vous m'apportez dans la compréhension des macros.
J'espère un jour pouvoir rendre à d'autres.
Encore merci et je vous souhaite de joyeuses fêtes de fin d'année.
Cordialement
Hervé
Désolé de n'avoir pu répondre plus tôt mais travail oblige et ce fut laborieux.
Je vais tester ces formules.
Mais j'aimerais vous remercier de l'aide que vous m'apportez dans la compréhension des macros.
J'espère un jour pouvoir rendre à d'autres.
Encore merci et je vous souhaite de joyeuses fêtes de fin d'année.
Cordialement
Hervé
