Code qui n'exécute pas
Résolu
muiigisha
Messages postés
61
Statut
Membre
-
muiigisha Messages postés 61 Statut Membre -
muiigisha Messages postés 61 Statut Membre -
Bonjour,
j'ai écrit un code et j'ai pas de messages d'erreur, quand je compile pas à pas il marche bien. Mais une fois que je le jance il ne fait rien. mon code c'est le suivant:
pouvez-vous m'aider svp?
merci d'avance
j'ai écrit un code et j'ai pas de messages d'erreur, quand je compile pas à pas il marche bien. Mais une fois que je le jance il ne fait rien. mon code c'est le suivant:
ch="CO"
Wbk.Activate
TabOrigSupChoice = Range("BB2:BB30000")
Table = Range("BB2:BB30000")
'*****************************each Original Supplier is reported to one name*************************************
For cmpt1 = LBound(TabOrigSupChoice, 1) To UBound(TabOrigSupChoice, 1)
For cmpt2 = LBound(Table, 1) + cmpt1 To UBound(Table, 1)
If Not TabOrigSupChoice(cmpt1, 1) Like "*" & ch & "*" Then
If (Table(cmpt2, 1) <> "") And (TabOrigSupChoice(cmpt1, 1) <> "") Then
If TabOrigSupChoice(cmpt1, 1) Like "*" & Table(cmpt2, 1) & "*" Or _
Table(cmpt2, 1) Like "*" & TabOrigSupChoice(cmpt1, 1) & "*" Then
Wbk.Activate
Cells(cmpt1 + 1, 54).Select
Selection.value = Table(cmpt2, 1)
Exit For
End If
Else
Exit For
End If
Else
Exit For
End If
Next
Next
pouvez-vous m'aider svp?
merci d'avance
A voir également:
- Code qui n'exécute pas
- Code ascii - Guide
- Code puk bloqué - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code activation windows 10 - Guide
- Code blocks - Télécharger - Langages
6 réponses
Bonjour,
D'après le code, il s'agit plutôt de tableaux à 2 dimensions (ligne,colonne) que d'objets Range. Dans ce cas, la bonne définition est :
Mieux vaut préciser la propriété Value (même si elle est en général prise par défaut) pour être sûr du résultat.
D'après le code, il s'agit plutôt de tableaux à 2 dimensions (ligne,colonne) que d'objets Range. Dans ce cas, la bonne définition est :
TabOrigSupChoice = Range("BB2:BB30000").Value
Table = Range("BB2:BB30000") .Value
Mieux vaut préciser la propriété Value (même si elle est en général prise par défaut) pour être sûr du résultat.
Merci ça marche à merveille.
svp je voudrais tester si une case de mon tableau est vide mais j'arrive pas en faisant ainsi:
ça m'affiche une erreur, comme si c'est l'adresse en fait qui est considérée comment indexer directement le contenu de la cellule?
merci beaucoup pour toute l'aide déjà apportée et la promptitude
merci d'avance
svp je voudrais tester si une case de mon tableau est vide mais j'arrive pas en faisant ainsi:
if Table(cmpt2, 1) =""then
exit for
end if
ça m'affiche une erreur, comme si c'est l'adresse en fait qui est considérée comment indexer directement le contenu de la cellule?
merci beaucoup pour toute l'aide déjà apportée et la promptitude
merci d'avance
Bonjour,
1 - Il nous faut le code complet
2 - Il faut nous indiquer comment tu le lances
Au passage, pour définir des RANGE il faut utiliser l'instruction SET
par exemple :
1 - Il nous faut le code complet
2 - Il faut nous indiquer comment tu le lances
Au passage, pour définir des RANGE il faut utiliser l'instruction SET
par exemple :
'si TabOrigSupChoice est défini en tant que range
' Dim TabOrigSupChoice as Range
Set TabOrigSupChoice = Range("BB2:BB30000")
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour Jordane,
je fait appel à ce module depuis un autre comme ceci:
La première boucle fait bien ce qu'elle doit faire mais la 2ème non.
je fait appel à ce module depuis un autre comme ceci:
Call OneSUP_OneDesignation.OneSUP_OneDesignation(WDte)
La première boucle fait bien ce qu'elle doit faire mais la 2ème non.
Sub OneSUP_OneDesignation(Wbk As Workbook)
Dim TabOrigSup(), TabOrigSupChoice(), Table() As Variant
Dim cmpt1, cmpt2 As Integer
Dim ch As String
'Set Wbk = Workbooks.Open(Filename:=strFileToOpen)
ch = "GE"
Wbk.Activate
TabOrigSup = Range("AO2:AO30000").value
TabOrigSupChoice = Range("BB2:BB30000").value
'************************Column "Original supplier choices" is filled******************************************
For cmpt1 = LBound(TabOrigSupChoice, 1) To UBound(TabOrigSupChoice, 1)
If (TabOrigSupChoice(cmpt1, 1) = "") Or (TabOrigSupChoice(cmpt1, 1) = "Other") Then
Wbk.Activate
Cells(cmpt1 + 1, 54).Select
Selection.value = TabOrigSup(cmpt1, 1)
End If
Next
Wbk.Activate
TabOrigSupChoice = Range("BB2:BB30000").value
Table = Range("BB2:BB30000").value
'*****************************each Original Supplier is reported to one name*************************************
For cmpt1 = LBound(TabOrigSupChoice, 1) To UBound(TabOrigSupChoice, 1)
For cmpt2 = LBound(Table, 1) + cmpt1 To UBound(Table, 1)
If Not TabOrigSupChoice(cmpt1, 1) Like "*" & ch & "*" Then
If (Table(cmpt2, 1) <> "") And (TabOrigSupChoice(cmpt1, 1) <> "") Then
If TabOrigSupChoice(cmpt1, 1) Like "*" & Table(cmpt2, 1) & "*" Or _
Table(cmpt2, 1) Like "*" & TabOrigSupChoice(cmpt1, 1) & "*" Then
Wbk.Activate
Cells(cmpt1 + 1, 54).Select
Selection.value = Table(cmpt2, 1)
Exit For
End If
Else
Exit For
End If
Else
Exit For
End If
Next
Next
End Sub
c'est exactement des tableaux. Ok c'est noté