Discussion :

[questionsguy]

Bonjour,

auriez-vous d'où vient mon erreur svp ? J'ai "Qualificateur incorrect" sur la première ligne Sub mais l'erreur vient de

Code :

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

ws.Name.Range("B5").Value = "Calculs"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Refresh_Data()
    Dim ws As Worksheet
    For Each ws In Worksheets
      If InStr(ws.Name, "Equipe") Then
        MsgBox "ok"
        MsgBox ws.Name
        ws.Name.Range("B5").Value = "Calculs"
      End If
    Next
 
End Sub

De plus, mon bouton arrête de fonctionner dès que j'ai l'erreur "Qualificateur incorrect".

Auriez-vous une idée comment remédier ces problèmes svp ? Si je mets ça à la place ça fonctionne bien pourtant...

Code :

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

ActiveSheet.Range("B5").Value = "Calculs"

EDIT JE viens de me rendre compte que j'ai oublié Sheets() youpi

[a_diard]

Bonjour.
Je pense qu'en remplaçant :

Code :

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

 ws.Name.Range("B5").Value = "Calculs"

par

Code :

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

 ws.Range("B5").Value = "Calculs"

ça fonctionne aussi.