Condition Macro Excel

Version imprimable

Je débute dans la macro excel, il y a certaines manip que je n'arrive pas à trouver, en espérant que certaines personnes parmi vous soient assez callés ..

J'aimerais installer une condition

C'est à dire

J'aimerais que si dans la colonne L

Il y a marqué "RESTREINT" dans une des cases, dans ce cas

dans la case K il y a marqué "DESTINATAIRE"

Ou si dans la colonne L une case contient "INTERNE",

dans ce cas la case K contiendrait "ECM"

Exemple :

Si L6 = RESTREINT alors K6 = DESTINATAIRE

ou si L86 = INTERNE alors K86= ECM
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sheets("Export").Select If [L3= RESTREINT] Then [K3= EDF] ElseIf [L3=INTERNE] Then [K3=DESTINAIRES] End If Sheets("Export").Select Dim note As Integer, commentaire As String note = Range("L3") 'Commentaire en fonction de la note If note = INTERNE Then commentaire = "ECM" ElseIf note = RESTREINT Then commentaire = "DESTINATAIRES" End If Range("K3") = commentaire
J'ai essayé ça, mais en vain...

15/12/2014, 10h51
MarcelG

Bonjour et Bienvenu,

Citation:

certaines personnes parmi vous soient assez callés

Ne t'inquète surtout pas, les Daniel, Philippe, mercatog et autres pgz le sont très largement.

Pour ton cas, sans VBA, je pense qu'une table à laquelle se référerait un fonction RechercheV, ou une combinaison d'Index et Equiv, conviendraient parfaitement.

Sinon, en VBA la meiileure solution serait plutôt la gestion des cas par la méthode

Code:

Select Case

.
15/12/2014, 10h57
EnzoExcel

D'accord merci en tout cas, bien que je n'ai pas tout à fait tout saisi
15/12/2014, 11h01
MarcelG

Salut,

Précise ta question. Que n'as-tu pas saisi?

As-tu essayé? Si tu utilises un code, sur quoi buggue-t-il?

Et surtout, as-tu cherché?
15/12/2014, 11h12
EnzoExcel

Je n'ai pas saisi ce que je pouvais essayer comme formule, j'ai essayé celle que j'ai écrite plus haut, mais elle n'a pas fonctionné, et je n'ai pas compris la solution que vous me proposiez.
Oui je fais que ça chercher sur des sites, forums à droite à gauche

1 pièce(s) jointe(s)

Bonjour Enzo
Essayes ce code, j'ai mis le fichier en pièce jointe, et dis moi si cela répond à ta demande.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
 
Sub Choix_Colonne()
Dim data As Worksheet
Dim Col As Range
Dim i As Integer
Set data = ThisWorkbook.Sheets("Data")
i = 1
 
   Do While data.Cells(i, 12) <> ""
 
                    If data.Cells(i, 12) = "RESTREINT" Then
                    data.Cells(i, 11) = "EDF"
                    ElseIf data.Cells(i, 12) = "INTERNE" Then
                    data.Cells(i, 11) = "DESTINATAIRE"
                    End If
                    i = i + 1
 
     Loop
 
End Sub

Fichier Joint :

Pièce jointe 163882

Eric

15/12/2014, 11h46
EnzoExcel

J'ai donc essayé ca :

Lien screen :
http://www.imagebam.com/image/e3756e....jpg%5B/IMG%5D

Mais ma colonne K n'a pas bougé..
Lien screen 2
http://www.imagebam.com/image/44413d...22imagebam.com

Je présume que j'ai dû oublier de rajouter des données, mais j'arrive pas à trouver lesquelles,
désolé de pas avoir tt compris, je débute, en tt cas c'est très gentil de votre part de m'aider

Je pense que c'est parce que j'ai pas rajouté les données

la feuille se nomme "Export"
Les données se trouvent dans la colonne L
et doivent être reportées ds la colonne K

Mais je sais pas ou noter tt ca (anglais à désirer)
15/12/2014, 11h55
eric4459

Enzo
Dans ton cas il faut remplacer la ligne de code

Code:

Set data = ThisWorkbook.Sheets("Data")

par

Code:

Set data = ThisWorkbook.Sheets("Export")

Il faut effectivement que tu ai des données en colonne L, j'ai codé en supposant qu'il n'y avait pas de cellule vide dans ta colonne(c'est à dire il ne faut pas L4 remplie, L5 vide, L6 remplie).
Le code parcourt la colonne L jusqu'à la dernière cellule non-vide
Eric
15/12/2014, 12h11
MarcelG

Bonjour Eric,

Je persiste à dire que la méthode

Code:

Select Case

est la plus adaptée car plus lisible.

D'autre part, et si je peux me permettre, il est de bon aloi de libérer les variables en fin de procédure.

Ici

Code:

Set data = Nothing

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 Option Explicit
 
Sub Choix_Colonne(L)
Dim data As Worksheet
Dim Col As Range
Dim i As Integer
Set data = ThisWorkbook.Sheets("Export")
i = 1
 
   Do While data.Cells(i, 12) <> ""
 
                    If data.Cells(i, 12) = "RESTREINT" Then
                    data.Cells(i, 11) = "EDF"
                    ElseIf data.Cells(i, 12) = "INTERNE" Then
                    data.Cells(i, 11) = "DESTINATAIRE"
                    End If
                    i = i + 1
 
     Loop

J'ai procédé comme cela, mais cela ne fonctionne toujours pas, j'ai le droit au message d'erreur : "cette commande va arrêter le deblogueur"

15/12/2014, 13h14
MarcelG

Salut Enzo,

Sauf ton respect, il faudrait commencer par border les bases.

Citation:

"cette commande va arrêter le deblogueur"

n'est pas un message d'erreur.

Lorsque une erreur survient, l'éditeur VBA (ou VBE) s'arrête sur la ligne de code qui entraîne celle-ci.
Il la surligne, généralement en jaune.

Le mode d'exécution est alors en débogage (pas à pas). La ligne en erreur pouvant être modifiée.
Un message d'erreur est affiché. C'est celui-ci qu'il fait retourner sur le forum.

Le message que tu cites signifie qu'ayant fermé VBE, le mode pas à pas disparaît. Ce qui est logique.
15/12/2014, 13h17
EnzoExcel

Pas de souci, au contraire merci de m'expliquer, je vais voir ça tte de suite, quel est le véritable message d'erreur alors
15/12/2014, 13h22
EnzoExcel

http://www.imagebam.com/image/029662372741747

Donc voici le message d'erreur
15/12/2014, 13h25
MarcelG

Salut,

Je persiste quant aux bases.

Ce type d'instruction se place en début de module.

Il signifie que toutes les variables doivent être déclarées.
15/12/2014, 13h28
EnzoExcel

Merci Marcel, oui je sais mes bases sont à revoir, j'ai déjà essayé de trouver des sites bien expliqués, mais il y a toujours des choses qui ns échappe.
Et j'ai qu'une petite période pour finir ma macro, merci en tt cas de votre aide
15/12/2014, 13h31
MarcelG

Salut,

Pas de problème.

As-tu essayé le code d'Eric? As-tu rencontré une erreur? Si oui, sur quelle ligne s'est arrêté le débogueur?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 Option Explicit
 
Sub Choix_Colonne(L)
Dim data As Worksheet
Dim Col As Range
Dim i As Integer
Set data = ThisWorkbook.Sheets("Export")
i = 1
 
   Do While data.Cells(i, 12) <> ""
 
                    If data.Cells(i, 12) = "RESTREINT" Then
                    data.Cells(i, 11) = "EDF"
                    ElseIf data.Cells(i, 12) = "INTERNE" Then
                    data.Cells(i, 11) = "DESTINATAIRE"
                    End If
                    i = i + 1
 
     Loop

j'ai le droit à : (Screen)
http://www.imagebam.com/image/029662372741747

J'ai donc continué avec ce code, en mettant

Code:

Option Explicit

tout en haut mais j'ai le droit à : "Erreur de compilation, Instruction incorrecte dans une procédure"..

Je ne sais plus vraiment comment m'y prendre

15/12/2014, 13h42
MarcelG

Salut,

Tout en haut.

On est bien d'accord, tout en haut du module.

Que vient faire l'argument "L" dans ta déclaration de procédure?

Supprime-le puis essaie de nouveau.

Quant au message d'erreur, c'est le même que précédemment...
Or, tu dis que tu as placé l'Option en entête de module.
15/12/2014, 13h47
EnzoExcel

C'est bon ça fonctionne merci beaucoup MarcelG et eric4459 !!!
haa c'est tellement agréable une macro qui fonctionne !
Encore merci !

Enzo,
Supprimes également la ligne

Code:

Dim Col As Range

qui ne sert à rien mais j'ai oublié de l'enlever.

Marcel,
Je ne suis pas expert moi non plus en Vba, pourrais-tu m'indiquer un post ou trouver des infos sur Select Case, l'aide vba ne m'a pas vraiment aidé surtout lorsque le choix se porte sur un mot.
Voici ce que j'ai tenté d'écrire mais rien ne se passe lorsque ma cellule contient "RESTREINT" ou "INTERNE"
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Sub Condition_Colonne() Dim data As Worksheet Dim i As Integer Dim Cond As String Set data = ThisWorkbook.Sheets("Data") i = 1 Do While data.Cells(i, 12) <> "" Select Case Cond Case "RESTREINT" data.Cells(i, 11) = "EDF" Case "INTERNE" data.Cells(i, 11) = "DESTINATAIRE" End Select i = i + 1 Loop Set data=Nothing End Sub
Eric

Salut Eric

J'avais toute une série d'occurence dans le livre de John Walkenbach.

On peut tester sur une valeur = ou <= ou >= ou une série discontinue de valeurs

Code:

Case 1 to 5

Code:

Case Is < 3

Code:

Case 1,3,5

A noter également, et cela peut être très utile que les cas peuvent être aussi de type boolean.

Le code prendra en compte la 1ère condition vraie, les conditions ne pouvant avoir aucun lien entre elles

Code:

1
2
3
4
5
6
7
8
9
Select Case True
 
Case ThisWorkbook.Worksheets.Count = 2
....
 
Case Worksheets("lafeuille").[Toto] = "lebonpasteur"
....
 
End Select

Pour ma part, donc, nous aurions pu coder ainsi pour le cas présent

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Option Explicit
Option Compare Text
 
Sub Choix_Colonne_Marcel()
 
Dim data As Worksheet
Dim dern_row As Integer
Dim i As Integer
Dim lachaine As String
 
 
Set data = ThisWorkbook.Sheets(1)
 
With data
    dern_row = .Cells(.Rows.Count, 12).End(xlUp).Row
 
    For i = 1 To dern_row
 
        With .Cells(i, 12)
 
            Select Case .Value
 
                Case "RESTREINT"
                        lachaine = "EDF"
 
                Case "INTERNE"
                    lachaine = "DETINATAIRE"
 
                Case Else
                    lachaine = .Offset(0, -1).Value
 
            End Select
 
            .Offset(0, -1).Value = lachaine
 
        End With
 
    Next i
 
End With
 
Set data = Nothing
 
End Sub

A noter également, que les méthodes Select Case peuvent être imbriquées.

15/12/2014, 15h06
eric4459

Merci Marcel,
Je commence à comprendre un peu mieux avec ton code.
J'ai posté une réponse au post "Creation boucle vba excel", je vais essayer d'appliquer ta méthode qui peut aussi s'appliquer dans ce cas.
Eric