Excel Downloads
Forum

Précédent   Excel Downloads Forums > Archives > Forum Excel Downloads - Archives

Advertisement

 
 
LinkBack Outils de la discussion
Vieux 08/07/2004, 23h45   #1 (permalink)
Ryu
Guest
 
Messages: n/a
Par défaut Débutant en VBA

Bonjour à tous,

J'ai une formule excel qui me renvoie #VALEUR! lorsqu'elle certains
arguments sont manquants. Je souhaiterais savoir s'il était possible
de créer une macro pour supprimer automatiquement les lignes
contenant #VALEUR! . J'ai lu un des post précédents concernant la
suppression de lignes, mais je n'ai pa réussi à faire marcher chez moi.

PS : j'ai excel 2002.


Merci de vos éclairages.
 
ANNONCES
Vieux 09/07/2004, 00h03   #2 (permalink)
thuan
Guest
 
Messages: n/a
Par défaut Re: Débutant en VBA

Bonjour Ryu, le forum
Voila un petit bout de code
Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer
For i = 1 To 100
For j = 1 To 100
If Cells(i, j).Value = "a" Then
Cells(i, j).Value = ""
End If
Next j
Next i
End Sub
Bon moi j'ai mis comme valeur a mais toi remplace a par #valeur
Allez bonne soirée
Fichiers attachés
Type de fichier : zip exemple.zip (8,4 Ko, 1 affichages)
 
Vieux 09/07/2004, 07h56   #3 (permalink)
Pao
Guest
 
Messages: n/a
Par défaut Re: Débutant en VBA

Peux tu joindres un exemple de ton fichier
 
Vieux 09/07/2004, 08h51   #4 (permalink)
Ryu
Guest
 
Messages: n/a
Par défaut Re: Débutant en VBA

Bonjour et merci à Thuan et Pao

Pao, voici le fichier en question.

Thuan, ton fichier marche sans prob, mais en réalité je souhaite
supprimer les lignes et non juste une cellule.
Je suis vraiment débutant en VBA et ne maîtrise pas trop les
procédures encore. J'aurais bien voulu écrire du code moi même
mais le résultat n'était pas convainquant.


Merci de votre aide à tous.
Fichiers attachés
Type de fichier : zip Exemple_2.zip (11,2 Ko, 1 affichages)
 
Vieux 09/07/2004, 10h07   #5 (permalink)
sousou
Guest
 
Messages: n/a
Par défaut Re: Débutant en VBA

Bonjour Ryu

test ce code qui devrait te convenir

Sub sup()
Set feuille = ThisWorkbook.Sheets("Clients")
Set maplage = feuille.UsedRange
For Each i In maplage
If IsError(i) = True Then
i.EntireRow.Delete
End If
Next

End Sub
 
Vieux 10/07/2004, 11h05   #6 (permalink)
Ryu
Guest
 
Messages: n/a
Par défaut Re: Débutant en VBA

Bonjour à tous,

Merci à vous tous de vous être intéresssé à mon problème.

Sousou, ton code marche à merveille. Encore merci.

Ce qui est intéressant c que plusieurs procédures peuvent
donner un même résultat.

@+
 
ANNONCES
 

Liens sociaux

Outils de la discussion

Règles de messages
Vous ne pouvez pas créer de nouvelles discussions
Vous ne pouvez pas envoyer des réponses
Vous ne pouvez pas envoyer des pièces jointes
Vous ne pouvez pas modifier vos messages

Les balises BB sont activées : oui
Les smileys sont activés : oui
La balise [IMG] est activée : oui
Le code HTML peut être employé : non
Trackbacks are oui
Pingbacks are oui
Refbacks are oui


Fuseau horaire GMT +2. Il est actuellement 00h12.


(C) 2006 Excel Downloads