Discussion :

[EnzoExcel]

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 :

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

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...

[MarcelG]

Bonjour et Bienvenu,

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 :

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

Select Case

.

[EnzoExcel]

D'accord merci en tout cas, bien que je n'ai pas tout à fait tout saisi

[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é?

[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

[eric4459]

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

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

Condition Colonne.xlsm


Eric

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

[eric4459]

Enzo
Dans ton cas il faut remplacer la ligne de code

Code :

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

Set data = ThisWorkbook.Sheets("Data")

par

Code :

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

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

[MarcelG]

Bonjour Eric,

Je persiste à dire que la méthode

Code :

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

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 :

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

Set data = Nothing

[EnzoExcel]

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
 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"