écrire codes élementaires vba

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 :)

bonjour

Citation:

---

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:

---

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:

---

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:

---

For i = 2 to derniereligne

---

regarde ici pour renseigner derniereligne

Citation:

---

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:

---

1 2 3

if variable=valeur1 or variable=valeur2 or.... then 'action end if

---

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:

---

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:

---

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
@+

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

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)

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 :)

Citation:

---

Envoyé par Krovax

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:

---

titi = "#Text1#Text2#Text3#

---

etc...
Et rechercher avec (exemple)

Code:

---

Instr(titi, "#Text1#")

---

Citation:

---

Envoyé par 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 :)

---

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

:oops: 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:

---

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 :(

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:

---

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)