Discussion :

[Toad08]

Bonjour tout le monde ....

J'ai un petit souci en fait avec VBA. Voila j'aimerai selectionner une partie de ligne definie par la fonction Range mais il se trouve que ca marche pas !!!

Voila le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim NumLg as variant
If Worksheets("BILAN PERTE").Range(Cells(NumLg, 3), Cells(NumLg, 17)).Value = "" Then
MsgBox "NO LOSS RECORDED"
Exit Sub
Else
Sheets("BILAN PERTE").Activate
TextBox1 = ""
UserForm2.Hide
End If

Donc si vous avez une petite idee .... J'apprecierai
Merci

[Invité]

Bonjour

Il y a un petit soucis dans ton code, et tu t'en doute bien

En effet, ici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim NumLg as variant

tu déclares une variable, et dans la ligne suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Worksheets("BILAN PERTE").Range(Cells(NumLg, 3), Cells(NumLg, 17)).Value = "" Then

tu l'utilises, hors tu ne lui as attribué aucune valeur

Starec

[Toad08]

Excuse moi j'aurais du ne pas omettre de preciser ca ....
En fait, c'est un code un peu long et je ne voulais pas tout ecrire, ca aurais été inutile .... Bref je la definie avant comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sheets("BILAN PERTE").Activate
 ActiveSheet.Cells.Find(code1, LookAt:=xlWhole).Activate
      With Application.ActiveCell
       NumLg = .Row
       End With

"code1" recherche le mot choisie et avec "NumLg" je fixe la valeur de la ligne ou se trouve le mot.
Et ce que je veux c'est que dans une partie de cette ligne, si il ne détecte aucune valeur qu'il renvoie une info par MsgBox.

J'espère avoir été plus precis.
Merci pour l'aide

[patbou]

bonsoir,

regarde find dans l aide xl
avec la fonction il y a un exemple qui ressemble a ce que tu veux

[Toad08]

Je viens de jeter un oeil ... en fait je pense pas que c'est ce que je cherche.
Je ne veux pas regarder cellule après cellule ; j'aimerais qu'il puisse regarder dans une plage selectionner si il ya 1 ou plusieurs valeurs. Et si il n'y en a aucune, alors il renvoie "ERREUR"....

Je suis sure qu'il y a une solution mais je me casse le crane !!!

[patbou]

bonsoir,

je n ai pas testé
mais essaye qd meme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Dim fl As Worksheet
Dim c
fl = Sheets("BILAN PERTE")
    With fl
          Set c = .Cells.Find(code1, LookAt:=xlWhole)
            If c Is Nothing Then
              MsgBox code1 & "non trouvée"
            Else
              NumLg = .Row
    End With

[Toad08]

Bon je viens de tester avec mon code et ... ba ca marche !!!!
Bien vu !!
Merci a toi du coup de main ... j'en avais trop marre !!