Incompatibilité de type
Fermé
VBuzze
Messages postés
10
Date d'inscription
jeudi 3 juillet 2014
Statut
Membre
Dernière intervention
8 juillet 2014
-
4 juil. 2014 à 17:22
VBuzze Messages postés 10 Date d'inscription jeudi 3 juillet 2014 Statut Membre Dernière intervention 8 juillet 2014 - 8 juil. 2014 à 16:42
VBuzze Messages postés 10 Date d'inscription jeudi 3 juillet 2014 Statut Membre Dernière intervention 8 juillet 2014 - 8 juil. 2014 à 16:42
A voir également:
- Incompatibilité de type
- Clear type - Guide
- Type de souris - Guide
- Indiquez l'unité pour la taille de ces fichiers. type document texte brut taille 8,1 ?? première réponse à trouver longueur 8085 caractères type image jpeg taille 3,0 ?? deuxième réponse à trouver dimension 3776 × 2124 px type vidéo mpeg-4 taille 1,1 ?? troisième réponse à trouver durée 02:01:15 - Forum Google Chrome
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Faiblesse type psy ✓ - Forum Jeux vidéo
7 réponses
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
4 juil. 2014 à 17:29
4 juil. 2014 à 17:29
Bonjour,
quand vous avez l'erreur, click sur debugage, passez le curseur souris sur la ligne en erreur pour voir le contenu de vos deux range
quand vous avez l'erreur, click sur debugage, passez le curseur souris sur la ligne en erreur pour voir le contenu de vos deux range
VBuzze
Messages postés
10
Date d'inscription
jeudi 3 juillet 2014
Statut
Membre
Dernière intervention
8 juillet 2014
Modifié par VBuzze le 4/07/2014 à 17:47
Modifié par VBuzze le 4/07/2014 à 17:47
Merci, j'ai pu voir qu'une de mes 2 cases était de type Nothing, je voudrais donc "sauter" les cases de type Nothing. J'ai fait cela mais il me dit encore la même chose à :
Savez vous comment faire ?
Merci d'avance,
Mon script :
b = wsre.Range("H" & i)
Savez vous comment faire ?
Merci d'avance,
Mon script :
Sub ref2()
Dim i As Integer
Dim j As Integer
Dim a As String
Dim b As String
Dim wbfil As Workbook
Dim wbre As Worksheet
Set wbfil = Workbooks.Open("chemin_excel_traductions")
Set wsre = wbfil.Worksheets("PME")
For j = 1 To 1000
For i = 1 To 10400
a = ThisWorkbook.Worksheets("RefOpt").Range("C" & j)
Do While wsre.Range("H" & i) is Nothing
i = i + 1
Loop
b = wsre.Range("H" & i)
If a = b Then
ThisWorkbook.Worksheets("RefOpt").Range("D" & j) = wsre.Range("F" & i)
ThisWorkbook.Worksheets("RefOpt").Range("E" & j) = wsre.Range("E" & i)
ThisWorkbook.Worksheets("RefOpt").Range("F" & j) = wsre.Range("G" & i)
End If
Next
Next
Set wsre = Nothing
Set wbfil = Nothing
End Sub
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
5 juil. 2014 à 09:01
5 juil. 2014 à 09:01
Bonjour,
il faudrait vos fichiers pour tester.
il faudrait vos fichiers pour tester.
VBuzze
Messages postés
10
Date d'inscription
jeudi 3 juillet 2014
Statut
Membre
Dernière intervention
8 juillet 2014
7 juil. 2014 à 09:09
7 juil. 2014 à 09:09
J'ai le regret de devoir vous répondre défavorablement, ces fichiers sont internes à l'entreprise, et ne peuvent être divulgués.
Toutes mes excuses,
Pensez vous pour autant que le script est conforme (ou non) à mes attentes ? (surtout pour la partie while et b=.. )
Merci d'avance,
Toutes mes excuses,
Pensez vous pour autant que le script est conforme (ou non) à mes attentes ? (surtout pour la partie while et b=.. )
Merci d'avance,
eriiic
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 213
5 juil. 2014 à 12:48
5 juil. 2014 à 12:48
Bonjour à tous,
surtout 10 400 000 de boucles ça doit être terriblement lent.
C'est optimisable.
eric
surtout 10 400 000 de boucles ça doit être terriblement lent.
C'est optimisable.
eric
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
5 juil. 2014 à 21:47
5 juil. 2014 à 21:47
'lut,
C'est sympa d'avoir des retours ou des réponses aux questions sur des topics précédents ... https://forums.commentcamarche.net/forum/affich-30449122-appliquer-un-sub-a-un-ensemble-de-fichiers-excel-meme-dossier#5
C'est sympa d'avoir des retours ou des réponses aux questions sur des topics précédents ... https://forums.commentcamarche.net/forum/affich-30449122-appliquer-un-sub-a-un-ensemble-de-fichiers-excel-meme-dossier#5
VBuzze
Messages postés
10
Date d'inscription
jeudi 3 juillet 2014
Statut
Membre
Dernière intervention
8 juillet 2014
7 juil. 2014 à 09:24
7 juil. 2014 à 09:24
Mes tests restent infructueux jusqu'ici..
Une idée ?
Merci d'avance,
Victor
Une idée ?
Merci d'avance,
Victor
eriiic
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 213
7 juil. 2014 à 10:15
7 juil. 2014 à 10:15
Bonjour,
oui, que tu mettes à dispo un fichier de travail avec les différents cas rencontrés.
20 lignes suffisent.
eric
oui, que tu mettes à dispo un fichier de travail avec les différents cas rencontrés.
20 lignes suffisent.
eric
VBuzze
Messages postés
10
Date d'inscription
jeudi 3 juillet 2014
Statut
Membre
Dernière intervention
8 juillet 2014
8 juil. 2014 à 09:33
8 juil. 2014 à 09:33
J'ai finalement trouvé la cause de mon problème.
Dans le fichier traduction que l'on m'avait donné, certaines cases contenaient des erreurs (#VALEUR!), je les ai donc supprimé manuellement au fil des 10400 lignes.
Le script a ensuite fonctionné.
Merci beaucoup de votre aide quoi qu'il en soit,
Pour information, quel type est affecté à ce type de case ?
Cordialement,
Victor
Dans le fichier traduction que l'on m'avait donné, certaines cases contenaient des erreurs (#VALEUR!), je les ai donc supprimé manuellement au fil des 10400 lignes.
Le script a ensuite fonctionné.
Merci beaucoup de votre aide quoi qu'il en soit,
Pour information, quel type est affecté à ce type de case ?
Cordialement,
Victor
eriiic
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 213
8 juil. 2014 à 09:51
8 juil. 2014 à 09:51
Bonjour,
if iserror(...) then
eric
if iserror(...) then
eric
VBuzze
Messages postés
10
Date d'inscription
jeudi 3 juillet 2014
Statut
Membre
Dernière intervention
8 juillet 2014
8 juil. 2014 à 16:42
8 juil. 2014 à 16:42
Merci !