Vider les celules qui n'affichent rien

Bonjour.

Je fais actuellement un fichier ou je dois tirer des formules mais je ne sais pas jusqu'à combien. J'ai donc fait quelque chose de simple, j'ai tiré jusqu'a 3000 une formule qui dit que si les 2 celules de gauche sont vides, elle n'affiche rien, sinon elle fait le total des deux.

Comment puis-je vider toutes les celules qui n'affichent rien mais qui ont un contenu du style "=SI(ESTVIDE(L85);"";(Q86/Q$2))" ?

Merci par avance.

Steve.

Bonjour

Tu veux supprimer les formules des cellules qui renvoient "" ?

A te relire

Amicalement

Nad

Bonjour

Un exemple de Code pour "Vider" les cellules de la plage C1:C13 qui contiennent une formule ne renvoyant rien

Code dans un Lodule

Sub Vider()
For Each Cellule In Range("C1:C13")
If Application.IsNumber(Cellule.Value) = False Then
Cellule.ClearContents
End If
Next
End Sub

Exemple dans le fichier

Cordialement

Bonjour Nad

Re

Bonjour Amadeus - La même chose sans macro :

Touche F5

Cliquer sur "Cellules ..." (en bas)

Cocher "Formules" et ne garder que "Texte" de coché

OK

Touche Suppr

Amicalement

Nad

Nad a écrit :

Bonjour

Tu veux supprimer les formules des cellules qui renvoient "" ?

A te relire

Amicalement

Nad

Exactement Nad.

Avec la solution de Amadeus il m'a vidé toutes les cases apparament ^^ même si la formule renvoyait quelque chose.

Il faudrait en fait que je vide les celules ou le test est positif (si ma case est vide il n'affiche rien donc le test est OK) il faudrait que je supprime toutes les formules qui me renverraient Ok en gros.

-- 31 Jan 2011, 17:14 --

Nad a écrit :

Re

Bonjour Amadeus - La même chose sans macro :

Touche F5

Cliquer sur "Cellules ..." (en bas)

Cocher "Formules" et ne garder que "Texte" de coché

OK

Touche Suppr

Amicalement

Nad

Cette solution me va nickel nickel ! Merci beaucoup !!!

-- 31 Jan 2011, 17:26 --

J'ai une petite question encore.

Par exemple si je ne connais pas la dernière ligne A.. contenant une valeur, je vais sur A3000 car je suis sûr qu'il n'y aura rien.

Je fais ensuite Ctrl + Flèche haut pour arriver sur la dernière valeur contenue par la colonne A.

La ligne de code macro est : Selection.End(xlUp).Select

La question est comment faire si je veux écrire 2 celules en dessous de la séléction end ? Puis-je faire par exmple un mixe donnant Selection.End(xlUp +2).Select ?

Car si je descends avec ma flèche bas, il prendra Range("A74").Select et là ça joue plus si il y a un nombre différent d'enregistrements la prochaine fois.

Merci par avance,

Bonjour

Avec la solution de Amadeus il m'a vidé toutes les cases apparament ^^ même si la formule renvoyait quelque chose.

Tiens?

Ci joint le fichier exemple, juste pour rétablir la vérité. La Macro n'efface pas les cellules qui affichent quelque chose.

cordialement

Amadéus a écrit :

Bonjour

Avec la solution de Amadeus il m'a vidé toutes les cases apparament ^^ même si la formule renvoyait quelque chose.

Tiens?

Ci joint le fichier exemple, juste pour rétablir la vérité. La Macro n'efface pas les cellules qui affichent quelque chose.

cordialement

Je l'ai testé chez moi, non c'est vrai il ne m'a pas effacer les cellules il m'a mit des 0 partout mais j'ai fait la macro en passant par F5 -> Cellules et là c'est nickel merci encore. As-tu pu voir pour ma petite question d'avant ? Merci !

Re, bonjour

Laissons faire les spécialistes VBA...

Cordialement

Re

Sub ligne()
lg = Range("A" & Rows.Count).End(xlUp).Row + 2
Range("A" & lg).Select
End Sub

Amicalement

Nad

Bonjour

Merci 1000x pour votre solution, celle-ci marche impeccable ..

Est-ce que l'on peut également le faire pour les colones ?

merci !

Ça serait quelque chose de ce style ..

lg = Range(Selection, Selection.End(xlToRight)).Column + 28

Range(Selection, Selection.End(xlToRight)) & lg).Select

Bonjour

Si je comprends ta demande, tu veux aller à la 28ème colonne à droite de la cellule active.

Sub Aller()
lg = ActiveCell.Row
col = ActiveCell.Column + 28
Cells(lg, col).Select
End Sub

Amicalement

Nad

Exactement merci, ça marche nickel mais il faudrait qu'il sélectionne les 28 si c'est possible..

Merci.

Re

Tu n'es pas très clair dans tes demandes. Peut-être :

Sub Aller()
    lg = ActiveCell.Row
    col = ActiveCell.Column
    Range(Cells(lg, col), Cells(lg, col + 28)).Select
 End Sub

Nad

Nad a écrit :

Re

Tu n'es pas très clair dans tes demandes. Peut-être :

Sub Aller()
    lg = ActiveCell.Row
    col = ActiveCell.Column
    Range(Cells(lg, col), Cells(lg, col + 28)).Select
 End Sub

Nad

Ah bah oui nickel merci beaucoup c'est exactement ça.