Probleme de formule...

V

Virginie

Guest

• 30 Janvier 2005

• #2

Personne peut m'aider 🙁 ?

 

Vote positif 0 Vote négatif

D

Dan

Guest

• 30 Janvier 2005

• #3

Bonsoir Virginie,

Un petit exemple de ce que tu peux faire. Cette macro supprime chaque ligne si une cellule dans la colonne A ( entre A2 et A5) est vide.

Sub supprimer()
Dim cell As Range

For Each cell In Range("A2:A5")
If cell.value = "" then
cell.entirerow.delete
End If
Next cell
End Sub

SI pb n'hésite pas

@+ Dan

 

Vote positif 0 Vote négatif

V

Virginie

Guest

• 30 Janvier 2005

• #4

Merci beaucoup.

Je vais essayer de ce pas !

 

Vote positif 0 Vote négatif

V

Virginie

Guest

• 30 Janvier 2005

• #5

Oui c'est déjà un bout de formule merci 🙂

Mais je ne veux pas ke cela les suppriment mais qu'il n'y ait plus de trou vide entre les lignes.

Du style si A4 et A5 sont remplies et que A2 et A3 sont vides... que cela remplisse A2 et A3 au lieu des autres...

Encore merci d'avance 🙁

 

Vote positif 0 Vote négatif

H

Hervé

Guest

• 30 Janvier 2005

• #6

bonsoir virginie, dan, le forum

Public Sub vev()
Dim i As Integer
Application.ScreenUpdating = False
For i = 100 To 1 Step -1
If Rows(i).Cells.Find("*") Is Nothing Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
End Sub

cette macro supprime les lignes vides de la ligne 100 à la ligne 1 quelle que soit les colonnes rempli.

Si tes données dépassent les 100 lignes remplace : for i = 100 , par ce que tu veux.

Salut à vous deux
Hervé

 

Vote positif 0 Vote négatif

V

Virginie

Guest

• 30 Janvier 2005

• #7

Merci beaucoup....

Mais y a pas un moyen de pas supprimer les cellules mais de les decaler... les remplies en haut et les vides en bas..?

Encore merci... 🙂

Suis vraiment nulle... mais bon...

 

Vote positif 0 Vote négatif

H

Hervé

Guest

• 30 Janvier 2005

• #8

re

essaye ceci , si c'est cela que tu veux on cherchera une macro plus rapide que le scanne de cellule.

Public Sub vev2()
Dim ligne As Integer
Dim colonne As Integer

Application.ScreenUpdating = False
For colonne = 10 To 1 Step -1
For ligne = 50 To 1 Step -1
If Cells(ligne, colonne) = "" Then
Cells(ligne, colonne).Delete Shift:=xlUp
End If
Next ligne
Next colonne
Application.ScreenUpdating = True
End Sub

Salut
Hervé

 

Vote positif 0 Vote négatif

D

Dan

Guest

• 30 Janvier 2005

• #9

Re Virginie,

Juste une question, un simple Tri ou filtre élaboré (menu / données) ne ferait pas l'affaire ?

Sinon place un fichier avec des données non confidentielles, on pourra mieux cerner ce que tu veux faire.

@+ Dan

 

Vote positif 0 Vote négatif