Type mismatch...

Résolu
2pax.cruz -  
 2pax.cruz -
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. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    Salut,
    Le debugage bloque sur qu'elle ligne?
    0
  2. 2pax.cruz
     
    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
    0
    1. 2pax.cruz
       
      Maintenant il bute sur la ligne :

      If Cells(i, n).Value = Usine Then
      0
    2. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      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
      0
    3. 2pax.cruz
       
      Oui mais usine est une variable.
      0
    4. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      usine est une variable? Déclarée ou? Comment?
      0
    5. 2pax.cruz
       
      Ca fonctionne.

      Mais je sais plus comment j'ai fais XD


      Merci d'avance.
      0