Débutant en VBA

T

thuan

Guest

• 8 Juillet 2004

• #2

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

 

Pièces jointes

• exemple.zip

  8.4 KB · Affichages: 29
• exemple.zip

  8.4 KB · Affichages: 22
• exemple.zip

  8.4 KB · Affichages: 21

Vote positif 0 Vote négatif

P

Pao

Guest

• 9 Juillet 2004

• #3

Peux tu joindres un exemple de ton fichier

 

Vote positif 0 Vote négatif

R

Ryu

Guest

• 9 Juillet 2004

• #4

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.

 

Pièces jointes

• Exemple_2.zip

  11.2 KB · Affichages: 28
• Exemple_2.zip

  11.2 KB · Affichages: 28
• Exemple_2.zip

  11.2 KB · Affichages: 26

Vote positif 0 Vote négatif

S

sousou

Guest

• 9 Juillet 2004

• #5

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

 

Vote positif 0 Vote négatif

R

Ryu

Guest

• 10 Juillet 2004

• #6

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.

@+

 

Vote positif 0 Vote négatif