Discussion :

[drakula]

Bonjour,

Je dispose uniquement des colonnes A (level 1 = PROFIL ou 2 = UTILISATEUR) et B (utilisateur ou profil)
J'aimerai afficher automatiquement dans la colonne C le profil de l'utilisateur (cf. exemple ci-dessous).

La macro doit afficher en colonne C lorsque le level est à 2 (= UTILISATEUR) le profil de celui-ci en 1 (= PROFIL) déclaré plus haut...
La macro ne doit rien afficher en colonne C lorsqu'il s'agit d'un profil (=1).

J'espère avoir été claire.. pas simple d'expliquer...

A	B	              C
Level	Users/Profil	A Remplir Auto
1	CONTRIB	
2	BRAJAONA	CONTRIB
2	SHUGUES	CONTRIB
2	VFEUILLE	              CONTRIB
1	ARBITR	
2	AAMATO	              ARBITR
2	HDUMENY	ARBITR
1	TECHNI	
2	AUTO_EMM	TECHNI
2	AUTO_ETFMM	TECHNI
2	AUTO_KRUSTY	TECHNI
2	AUTO_KWIKE	TECHNI

Merci de votre aide et à bientôt !

PS : j'adore ce forum

[Kimy_Ire]

Bonjour drakula,

D'après ma compréhension du problème, voici ce que j'ai mis en place :

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
Sub level()
Dim cell_ori As Range
Dim profil As String
 
'Placer le nom de la feuille sur laquelle on travaille
With Worksheets("Feuil6")
Set cell_ori = .Range("A1")
For i = 0 To .Columns(1).Find("*", , , , , xlPrevious).Row
    If cell_ori.Offset(i, 0) = 1 Then
        profil = cell_ori.Offset(i, 1)
    ElseIf cell_ori.Offset(i, 0) = 2 Then
        cell_ori.Offset(i, 2) = profil
    End If
Next i
 
End With
 
End Sub

N'hésite pas à me faire un retour quant à son fonctionnement.

Cordialement,
Kimy

[keygen08]

Bonjour
1. C'est pas clair
2. On vas pas faire le code pout toi. Ou alors , toutes peine mérite salaire.

par contre on daignera peut-être aider si ton code ne fonctionne pas.

[drakula]

Bonjour drakula,

D'après ma compréhension du problème, voici ce que j'ai mis en place :

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
Sub level()
Dim cell_ori As Range
Dim profil As String
 
'Placer le nom de la feuille sur laquelle on travaille
With Worksheets("Feuil6")
Set cell_ori = .Range("A1")
For i = 0 To .Columns(1).Find("*", , , , , xlPrevious).Row
    If cell_ori.Offset(i, 0) = 1 Then
        profil = cell_ori.Offset(i, 1)
    ElseIf cell_ori.Offset(i, 0) = 2 Then
        cell_ori.Offset(i, 2) = profil
    End If
Next i
 
End With
 
End Sub

N'hésite pas à me faire un retour quant à son fonctionnement.

Cordialement,
Kimy

Merci, ca fonctionne à la perfection !!!