Code VBA ne marche pas

Version imprimable

Bonjour,

J'ai mon code qui ne marche plus. Il a marché dans la journée mais je ne voit pas pourquoi il ne marche plus
C'est surtout la ligne coloré et en gras qui ne marche plus.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub ComboBox3_Change()
Sheets("Suivi").Cells(6, 2).Value = ComboBox3.Value
Dim DerLig As Integer
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim DernCol As Integer
Dim d As Integer
Dim S As Integer

DerLig = Sheets("Gamme").Range("B65536").End(xlUp).Row
For a = 2 To DerLig 'Nécessite de calculer la dernière ligne, j'imagine que tu l'as déjà fait
    If Sheets("Gamme").Cells(a, 2) = Me.ComboBox1.Value And _
       Sheets("Gamme").Cells(a, 3) = Me.ComboBox2.Value And _
       Sheets("Gamme").Cells(a, 4) = Me.ComboBox3.Value Then
       Sheets("Suivi").Cells(5, 4).Value = Sheets("Gamme").Cells(a, 1).Value
        S = WorksheetFunction.CountA(Range(Cells(a, 5), Cells(a, 30)))
       Exit For
    End If
Next a
MsgBox (S)
End Sub

Merci d'avance pour votre aide

31/03/2015, 16h28
joe.levrai

Bonjour,

ta ligne 17 qui ne "marche pas" dispose de Range qui ne sont rattachés à aucune feuille.

donc par défaut, ça fait référence à la feuille active ... ce qui est source de problèmes et probablement du tiens
01/04/2015, 09h20
Nico Chg
Citation:

Envoyé par joe.levrai

Bonjour,

ta ligne 17 qui ne "marche pas" dispose de Range qui ne sont rattachés à aucune feuille.

donc par défaut, ça fait référence à la feuille active ... ce qui est source de problèmes et probablement du tiens

Bonjour,

Je suis tout à fait d'accord, et je rajouterais également que tu dois attacher les cellules à un objet, pour les même raisons ! L'objet "cells" pris en argument dans l'objet "range" ne sont pas forcément rattaché au même objet. (Dans ton cas si, puisque tous le monde fais référence à la feuille Active). Pour t'en convaincre, lance ce code depuis la feuille 1 :
Code:

1 2 3 4 5 Sub test() MsgBox Feuil4.Range(Cells(1, 1), Cells(1, 1)).Value End Sub
Ca plante si tu es sur la feuille 1, mais pas sur la feuille 4 !

Bon courage !

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
For a = 2 To DerLig 'Nécessite de calculer la dernière ligne, j'imagine que tu l'as déjà fait
With Sheets("Gamme")
    If .Cells(a, 2) = Me.ComboBox1.Value And _
       .Cells(a, 3) = Me.ComboBox2.Value And _
       .Cells(a, 4) = Me.ComboBox3.Value Then
       Sheets("Suivi").Cells(5, 4).Value = .Cells(a, 1).Value
        S = WorksheetFunction.CountA(.Range(.Cells(a, 5), .Cells(a, 30)))
        Exit For
    End If
    End With 
Next a

01/04/2015, 09h36
jgresse1025

Le code de rdurupt marche
Merci à tous