if then else : seul else se lance !!!

PascalXLD

XLDnaute Barbatruc

Modérateur

• 12 Juin 2008

• #2

Re : if then else : seul else se lance !!!

Bonjour

Tu as quoi comme valeur ??

Du chiffre des dates ??

Car dans ton textbox c'est du texte don cil doit falloir peut-être faire une conversion

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 12 Juin 2008

• #3

Re : if then else : seul else se lance !!!

bonjour pandaexcel

et bienvenue sur XLD

Sans savoir ce qu'il y a dans la colonne A il est difficile de t'aider
Toutefois j'attire ton attention sur le fait que le contenu d'une textbox est toujours du TEXTE (le Val n'y change rien )
Si par hasard la colonne A comporte des nombres il y a lieu d'ecrire
If Cells(i, 1).Value = Cdbl(TextBox2) Then
ou
If Cells(i, 1).Value = Cint(TextBox2) Then

Et en regle générale , sache qu'un fichier exemple nous en dit toujours plus que n'importe quelle info

Edit : Salut Pascal

 

Vote positif 0 Vote négatif

P

pandaexcel

XLDnaute Nouveau

• 12 Juin 2008

• #4

Re : if then else : seul else se lance !!!

bonjour
la conversion est deja faite :
TextBox2 = Val(TextBox1.Value)
si j'enleve le bloc else, l bloc then fonctionne
mais si je remet le bloc else le then fonctionne plus

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 12 Juin 2008

• #5

Re : if then else : seul else se lance !!!

Re

C'est une variable textbox2??

Pas académique comme nom

Sinon comme le dit pierrejean un petit fichier exemple

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 12 Juin 2008

• #6

Re : if then else : seul else se lance !!!

Bonjour PandaExcel,

La cause peut provenir de différentes choses.

Mais ce que je peux voir dans ta macro c'est que si les valeurs contenues dans les cellules de références sont des valeurs numerique, elles sont peut-être mal comparées à la valeur du textbox qui comme sont nom l'indique renvoie des valeurs de type textuelle (chaine de caractères) même s'il contient des chiffres. Il se peut donc qu'il y ait une conversion à faire avant comparaison.

si ce n'est pas cela, il nous faut plus de détail et un exemple précis des données, anonymisées.

A bientôt

Editascal, PierreJean j'arrive avec un train de retard!

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 12 Juin 2008

• #7

Re : if then else : seul else se lance !!!

Bonjour
Private Sub CommandButton1_Click()
Dim i As Integer
meserr as byte
meserr=0
TextBox2 = Val(TextBox1.Value)
Sheets("Base de donnée").Select
For i = 1 To Range("a2000").End(xlUp).Row
If Cells(i, 1).Value = TextBox2 Then
Cells(i, 6).EntireRow.Delete
meserr=1
MsgBox "ligne effacee"
exit for
End If
Next
if meserr=1 then
Sheets("Accueil").Select
Unload UserForm1
Panneauprincipal.Show 0
else
MsgBox "occurrence introuvable, veuillez retaper une autre valeur"
UserForm1.textbox1.value=""
UserForm1.textbox2.value=""
endif
End Sub


Bonjour ter tous je suis bien d'accord avec vous un fichier exemple répondrai à beaucoup de question...
A+ François

 

Dernière édition: 12 Juin 2008

Vote positif 0 Vote négatif

P

pandaexcel

XLDnaute Nouveau

• 12 Juin 2008

• #8

Re : if then else : seul else se lance !!!

voici un exemple,
la valeur n'est jamais trouvée donc la msgbox operation introuvable s'affiche !

 

Pièces jointes

• Nouveau Feuille Microsoft Office Excel (2).xls

  33.5 KB · Affichages: 45

Vote positif 0 Vote négatif

P

pandaexcel

XLDnaute Nouveau

• 12 Juin 2008

• #9

Re : if then else : seul else se lance !!!

bonjour fanfan 38,
meserr As Byte => erreur d'instruction

en attendant d'avoir la solution, merci a tous de m'aider !

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 12 Juin 2008

• #10

Re : if then else : seul else se lance !!!

Re

oui c'est normal si il ne trouve pas sur la première ligne et bien il sort de la boucle

Regarde du coté de Find au lieu de la boucle sur A1 A30

 

Vote positif 0 Vote négatif

P

pandaexcel

XLDnaute Nouveau

• 12 Juin 2008

• #11

Re : if then else : seul else se lance !!!

merci fanfan38
le programme fonctionne avec ce code :

Private Sub CommandButton1_Click()
Dim i As Integer
TextBox2 = Val(TextBox1.Value)
Sheets("Base de donnée").Select
For i = 1 To Range("a2000").End(xlUp).Row
If Cells(i, 1).Value = TextBox2 Then
Cells(i, 1).EntireRow.Delete
meserr = 1
MsgBox "ligne effacee"
Exit For
End If
Next
If meserr = 1 Then
Sheets("Accueil").Select
Unload UserForm1
Panneauprincipal.Show 0
Else
MsgBox "occurrence introuvable, veuillez retaper une autre valeur"
End If
End Sub

merci a tous et a ce forum
rapide et efficace

 

Vote positif 0 Vote négatif