Discussion :

[ellewided]

Bonjour tout le monde,
j'ai quelques petites questions sur VBA:

1) j'aimerai savoir comment on traduit en code vba :

Si "varible" appartient à une liste de valeurs (pas forcéments des chiffres : une liste de chaines de caractères séparées par des virgules par exemple )

2) Pour compteur i allant de 2 à la longueur du tableau excel faire (instructions)
sachant que cette longueur = nombre de lignes du tableau n'est pas connue d'avance : c'est au code de la trouver tout seul

3) Si "variable" = valeur 1 ou valeur 2 ou valeur 3 et "variable" différente de valeur A et valeur B et valeur C , faire (instructions)


merciiiii

[Krovax]

bonjour

Si "varible" appartient à une liste de valeurs (pas forcéments des chiffres : une liste de chaines de caractères séparées par des virgules par exemple )

Ou se trouve ta liste? dans une feuille excel une variable tableau?
2) Pour compteur i allant de 2 à la longueur du tableau excel faire (instructions)
sachant que cette longueur = nombre de lignes du tableau n'est pas connue d'avance : c'est au code de la trouver tout seul

je dirais si c'est dans un tableau

Code :

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

1
2
3
4
5
dim c as range
set c= worksheets("feuil1").Range("TaplageTableau").find(variable)
 
if not c is nothing then
'ce que tu veux faire si c est dans ton tableau c est la cellule contenant ta valeur

Code :

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

1
2
 Pour compteur i allant de 2 à la longueur du tableau excel faire (instructions)
sachant que cette longueur = nombre de lignes du tableau n'est pas connue d'avance : c'est au code de la trouver tout seul

Code :

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

For i = 2 to derniereligne

regarde ici pour renseigner derniereligne

Si "variable" = valeur 1 ou valeur 2 ou valeur 3 et "variable" différente de valeur A et valeur B et valeur C , faire (instructions)

Code :

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

1
2
3
if variable=valeur1 or variable=valeur2 or.... then
'action
end if

[Pierrot93]

Bonjour Ellewided, Krovax

Pour ta 1ère question, s'il s'agit de faire une recherche de caractères dans une variable, peut être procéder ainsi :

Code :

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

1
2
3
4
Dim machaine As String
machaine = "text1,text2,text3,13"
If InStr(1, machaine, "text1", vbBinaryCompare) > 0 Then _
    MsgBox "ok,text1 dans ma chaîne !!!"

Pour la 3ème, je l'aurais bien vu comme ceci :

Code :

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

1
2
3
If (mavariable = 1 Or mavariable = 2 Or mavariable = 3) And _
    (mavariable <> "A" Or mavariable <> "B" Or mavariable <> "C") Then _
        MsgBox "Test OK"

bon après midi
@+

[ellewided]

merci de la réponse Krovax

en fait pour la question num 1 )
il s'agit d'une liste ou autrement un ensemble de valeurs que je rentre moi meme, je veux écrire si variable appartient à ( val1, val2, val3, ... val N)

2)
For i = 2 to derniereligne

mais en fait comment traduire " derniereligne " en code vba

3)
commment dire if variable "Différente de" val 1 et variable "Différente de" val 2

merciii

[Krovax]

Je t'ai donné un lien popur le dernière ligne tu clique et tu as une dizaine de solution (alors c'est vrai c'est petit il faut cliquer sur le mot "ici") (c'est plus facile que de jouer a "ou est charlie?" ne t'inquiète pas )


Pour le test je suis allé un peu vite le code de pierot93 qui correspondra a tes attentes

Tu ne pas pas dit dans quoi tu rentre tes valeur, un tableau ? une chaine de caractère (le code de pierrot devrais convenir dans ce ca)

[ellewided]

merciiiii Pierrot93

sinon pour ma deuxième question , tu saurais pas comment faire pour parcourir toutes les lignes d'un tableau ( pour une colonne donnée , exemple toutes les lignes , et colonne 4) sachant que je ne connais pas le nombre total des lignes du tableau d'avance : en fait je travaille sur un excel modifiable c'est à dire que l'utilisateur peut rajouter ou supprimer des lignes donc leur nombre n'est pas fixe

bonne aprèm à toi aussi

[ucfoutu]

une chaine de caractère (le code de pierrot devrais convenir dans ce ca)

Non...

Car il trouverait Text1 dans "patatiText1, patataText2"
Lorsque l'on joue avec cette utilisation des chaines, il faut chercher dans une chaîne ainsi construite (exemple avec le délimiteur de son chois - ici #) :

Code :

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

titi = "#Text1#Text2#Text3#

etc...
Et rechercher avec (exemple)

Code :

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

Instr(titi, "#Text1#")

[Krovax]

merciiiii Pierrot93

sinon pour ma deuxième question , tu saurais pas comment faire pour parcourir toutes les lignes d'un tableau ( pour une colonne donnée , exemple toutes les lignes , et colonne 4) sachant que je ne connais pas le nombre total des lignes du tableau d'avance : en fait je travaille sur un excel modifiable c'est à dire que l'utilisateur peut rajouter ou supprimer des lignes donc leur nombre n'est pas fixe

bonne aprèm à toi aussi

Tu le fais exprès????
CLIQUE ICI

Et effectivement ucfoutu a raison, pour le problème de instr, soit précis et essaye de répondre a ma question.
A quoi resemble exactement ta variable

[ellewided]

désoléeeee Krovax j'ai répondu à Pierrot93 avant de lire ta réponse
je vais regarder le lien tt de suite
sinon pour la variable : il s'agit d'une chaine de caractère

en fait en gros j'ai un tableau excel : la première colonne correspond au nom du salarié, la colonne 9 correspond au type de son abscence , et j'essaye de chercher les abscences non payées dans toutes les lignes du tableau selon leur codes :
chaque abscence a un code , exemple
M : maladie : abscence non payée, JRTT, E : evenement familial
F : formation : abscence payée

donc machaine sera la liste des codes des abscences non payées séparés par des virgules, par contre je vérifie pas si une chaine fixe #texte1# existe dans machaine ou pas mais plutot si le contenu de la cellule (i,9) y est ou pas (avec i compteur parcourant toutes les lignes du tableau) :

voici mon code :

Code :

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

1
2
3
4
TypAbsceneCompte = "#JRTT#M#E#"
 
If InStr(TypAbsceneCompte, Cells(i, 9).Value) Then
    MsgBox "ok,type d'abscence dans ma chaîne !!!"

mais ça ne marche pas

[Krovax]

Utilise les balise code ce coup ci pas de lien tu vas tout seul a la fin du premier message du forum pour cliquer sur le lien vers la démo.

Si tu cherche une valeur particulière plutot que de boucler sur les cellule regarde la fonction find un exemple

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
16
17
18
19
20
21
Dim tableau() As String
Dim codedabsence As String
Dim i As Integer
Dim PlageDeRecherche As Range
Dim c As Range
Dim firstAddress  As String
 
codedabsence = "aaa,BBB,FFF"
tableau = Split(codedabsence, ",")
 
Set PlageDeRecherche = Range("A2:A" & Range("A65536").End(xlUp).Row)
For i = 0 To UBound(tableau)
     Set c = PlageDeRecherche.Find(tableau(i), LookIn:=xlValues)
     If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            MsgBox "J'ai trouvé le code " & tableau(i) & " à la ligne " & c.Row
            Set c = PlageDeRecherche.FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
Next i

Le code n'est pas parfait (mais au fianal il trouve bien toute les valeurs) et tu risque de ne pas tout comprendre? Mais essaye de faire un effort, affiche les variable local utilise des espion et avance en mode pas a pas. (si tu ne sais pas faire un de ces truc dit le)
Utilise l'aide sur les commande que tu ne comprend pas.
Ensuite pose des question sur ce qui reste obscure à tes yeux


En gros je cherche avec la fonction find chaque élément de la chaine et a chaque fois qu'il en trouve un tu a un petit message (que tu remplaces par ton traitement)