Discussion :

[blayck972]

Salut à tous,
J'ai passé beaucoup de temps à chercher réponse a mon problème, j'ai trouvé des pistes grâce aux autres post mais pas de solution.

J'ai un programme en VBA excel, j'ai déja fait ce code et c'est casi du copier collé avec de la readaptation.

Une erreur viens se glissé et me fait perdre beaucoup de temps.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim classeur, Feuille As String
classeur = "ANNUAIRE DES INTERVENANTS.xls"
Feuille = "FOURNISSEURS"

If (TextBox1.Text = "") Then
    MsgBox ("Veuillez saisir un mot dans le champ")
    Else
    
Set plage = Workbooks(ThisWorkbooks).Worksheets(Feuille).Range("C3:C200")
    
    
            
            ActiveCell.Offset(0, 5).Range("A1:C1").Select
            Selection.AutoFilter
            ActiveSheet.Range("A2:F1000").AutoFilter Field:=1, Criteria1:="=*" & TextBox1.Text & "*"
            plage.Rows(1).Cells(1).Select
      
    
End If

j'ai fait plusieurs modification mais rien ne fonctionne ! alors que j'imagine que c'est une truc tout simple ! merci d'avance

[gFZT82]

Bonjour,

En supposant que le classeur "ANNUAIRE DES INTERVENANTS.xls" est ouvert, on s'attend à trouver

Code :

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

Set plage = Workbooks(classeur).Worksheets(Feuille).Range("C3:C200")

Cordialement.

[casefayere]

Bonjour,

Penses à déclarer correctement tes variables,
Pour ma part, j'aurais déclaré comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
Dim classeur As Workbook, Feuille As Worksheet, plage As Range
Set classeur = Workbooks("ANNUAIRE DES INTERVENANTS.xls")
Set Feuille = classeur.Sheets("FOURNISSEURS")
 
If (TextBox1.Text = "") Then
  MsgBox ("Veuillez saisir un mot dans le champ")
Else
  Set plage = Feuille.Range("C3:C200")
........

Pour la suite, il faut deviner ce que tu veux faire et éviter les "select"

bonne journée