Type mismatch...

Résolu
Bonjour,

j'ai un soucis en VBA-Excel... Il me sort "TypeMismatch".

J'ai tout essayé. Excel m'énerve!

'on va trouver la colonne qui correspond à l'usine
Dim Colonne As Integer
Colonne = 0
Dim Cellule As String

For n = 1 To 50
For i = 1 To 200
Cellule = Cells(i, n).Value
If Cells(i, n).Value = Usine Then
Colonne = n
Exit For
Exit For
End If
Next i
Next n
If Colonne = 0 Then
Exit Sub
End If

Je vous remercie d'avance =D

2 réponses

  1. J'aurais du préciser, pardon.

    Sur la ligne : Cellule = Cells(i, n).Value

    Sachez que la cellule Cells(i, n) est de type général
    1. Maintenant il bute sur la ligne :

      If Cells(i, n).Value = Usine Then
    2. Modérateur
      Cellule = Cells(i, n).Value
      Cells(i, n) est de type général
      Donc pas de souci?
      Essaie ceci :
      If Cells(i, n).Value = "Usine" Then
    3. Oui mais usine est une variable.
    4. Modérateur
      usine est une variable? Déclarée ou? Comment?
    5. Ca fonctionne.

      Mais je sais plus comment j'ai fais XD

      Merci d'avance.