fonction Range

Version imprimable

fonction Range

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:

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

10/02/2008, 18h12
Invité

Bonjour

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

En effet, ici

Code:

Dim NumLg as variant

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

Code:

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

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

Starec
10/02/2008, 18h24
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:

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
10/02/2008, 19h43
patbou

bonsoir,

regarde find dans l aide xl
avec la fonction il y a un exemple qui ressemble a ce que tu veux
10/02/2008, 20h58
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 !!! :cry:

bonsoir,

je n ai pas testé
mais essaye qd meme

Code:

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

10/02/2008, 23h44
Toad08

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