Discussion :

[nefertiti]

Bonjour,

Je débute tout juste en vba et j'ai écrit un programme dont je n'arrive pas à trouver l'erreur. Pourtant, quand j'essaye de l'exécuter il me dit qu'il y a une erreur de compatibilité de type, alors que j'ai tout mis en chaine de caractères...
Quelqu'un pourrait-il m'aider svp?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Par_site()
  Dim site As String
    For ligsite = ligstartsite To ligendsite
        site = Sheets("Par_site").Cells(ligsite, colsite).Value
        For LigAff = ligstartpaf To ligendpaf
        If InStr((CStr(ThisWorkbook.Sheets("Liste affectation").Cells(LigAff, colaffect).Value)), CStr(site), 1) <> 0 Then              Sheets("Par_site").Cells(ligsite, colnbap).Value = Sheets("Par_site").Cells(ligsite, colnbap).Value + 1
                Sheets("Par_site").Cells(ligsite, colnbh).Value = Sheets("Par_site").Cells(ligsite, colnbh).Value + Sheets("Liste affectation").Cells(LigAff, colqtéh).Value
            End If
        Next
    Next
End Sub

Désolée, je ne sais pas comment insérer du code...

Encore merci!!!!!

[koluche]

Code :

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

If InStr((CStr(ThisWorkbook.Sheets("Liste affectation").Cells(LigAff, colaffect).Value)), CStr(site), 1) <> 0 Then

Bonjour! Je ne suis pas certain de ce que j'avance, et je n'ai pas le moyen de tester sous la main, mais peut-etre devrais tu remplacer <>0 par <>NULL ou <>"".
A bientot!

[nefertiti]

Merci!

Malheureusement, cela me met toujours erreur de type 13, incompatibilité de type...
Et puis quand je clique sur débogage, cela me surligne la ligne que j'ai mise ne rouge dans le message...

Je ne comprend vraiment pas

[jfontaine]

Bonjour,

Que retourne le code ?

Code :

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

(CStr(ThisWorkbook.Sheets("Liste affectation").Cells(LigAff, colaffect).Value))

[nefertiti]

Bonjour,

Il retourne une liste d'abréviations qui correspondent pour moi à des symboles de lieux. Les cases sont soient vides, soient de ce type:
AB - CDE - EFG - IJK - LMN - OPQ (AB est un lieu, IJK en est un autre...)
Et en fait pour une abréviation (soit un site) je souhaite voir le nombre de fois où il apparaît dans la colonne dont je dispose dans une autre feuille.
Du coup je cherche si la chaine de caractères correspondantes se trouve dans les chaînes existantes dans les cases.

J'espère avoir été claire...

Merci

[jfontaine]

La première instruction de INSTR est la caractère de démarrage.
Si ta formule retourne une chaine de caractère tu as une erreur de type 13

Si je comprend bien tu veux connaitre combien de fois se trouve ta valeur "AB" dans ta colonne.
Si c'est le cas, la formule NB.SI fait cela

[nefertiti]

Merci!

Par contre, mon problème est le suivant: dans chaque case de ma colonne j'ai plusieurs sites (chaine de caractère de la forme: "AB - CDE - EFG etc)! Et je n'ai jamais (ou rarement) la même combinaison dans les cases...

Du coup, je cherche par exemple mon site AB dans des cases qui contiennent plusieurs sites différents!
Je ne sais pas si je suis suffisamment claire? Je ne pense donc pas que NB.SI puisse effectuer cette recherche au sein d'une chaine de caractère..

Par ailleurs ma fonction InStr doit me retourner 0 si mon site "AB" n'est pas dans ma chaine de caractère de chaque case et sinon elle doit me retourner la position de "A" dans ma chaine de carctère! Donc elle ne me retourne pas une chaine de carctère mais un integer

Encore merci pour votre aide!

[amnorian]

comme l'as dis jfontaine cherche du coté de nb.si (ou application.worksheetfunction.countif en vba)

[nefertiti]

Merci, effectivement, je n'avais pas bien étudié la syntaxe de la fonction!
Je vais essayer ainsi!

Bonjour,

je reviens vers vous car j'ai utilisé la fonction NB.SI comme vous me l'avez indiqué. Cel ane me donne malheureuement pas le bon résultat.
Mon problème se pose au niveau de la syntaxe. En effet, j'ai une variable qui doit prendre pour valeur la chaîne de caractère du site de la ligne parcourue (cf. boucle for). C'est donc une variable que je veux retrouver dans des chaines de caractères.

Code :

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

Application.WorksheetFunction.CountIf(myRange, site)

Site est donc ma variable et je souhaiterais indiquer qu'il peut y avoir une chaine de caractère avant et/ou après le site (ex: AB oeut se trouver dans une case type FGH-JIL-AB-TOP)

Merci d'avance pour votre aide

[amnorian]

sans voir ton nouveau code ca va être tres compliqué surtout que je ne comprends pas trop ton probleme site étant ta variable, dans une boucle tu peux relancer tes variables autant de fois que tu veux il suffit juste de bien parametrer tes boucles...

[nefertiti]

En fait mon problème c'est juste que je veux indiquer que le programme doit rechercher site entre deux chaines de caractères potentielles avant et après la variable site...
Voici mon code:

Code :

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

1
2
3
4
5
6
7
    Dim site As String
    Dim myRange As Range
    For ligsite = ligstartsite To ligendsite
        site = Sheets("Par_site").Cells(ligsite, colsite).Value
        Set myRange = Worksheets("Liste affectation").Range("N3:N1218")
        Sheets("Par_site").Cells(ligsite, colnbap).Value = Application.WorksheetFunction.CountIf(myRange, "*site*")
    Next

Là j'ai mis des "* pour dire qu'il y a du texte avant ma variable mais du coup site devient ce que l'on cherche alor sque je veut chercher le contenu de site..
Et quand je mets "*"site"*" cela me met une erreur...

J'essaye d'êtrel aplus claire possible mais je débute vraiment

[amnorian]

et si tu fais ca ?
je suis pas sur d'avoir parfaitement compris ta demande par contre
(non testé)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
sub touteslescolonnes
toto("n")
toto("o")
etc....
endsub
 
sub toto(variable)
Dim site As String
Dim myRange As Range
For ligsite = ligstartsite To ligendsite
site = Sheets("Par_site").Cells(ligsite, colsite).Value
Set myRange = Worksheets("Liste affectation").range(variable & "3:" & variable  & "1218")
Sheets("Par_site").Cells(ligsite, colnbap).Value = Application.WorksheetFunction.CountIf(myRange, "*site*")
Next