Je voudrais cr=E9er un petit gestionnaire d'employ=E9s avec un=20
Userform. J'aimerais que l'utilisateur puisse ajouter ou=20
enlever un nom de la liste.
En fait, je pensais qu'avec un textbox l'utilisateur entre=20
un nom qui se rajoute =E0 la liste qui se trouve en colonne=20
G par exemple... De A7 jusqu'=E0 Ax, il y aurait une liste=20
d=E9roulante se basant sur cette liste.
Maintenant, s'il est facile de rajouter un nom sur la=20
liste de la colonne G, comment faire pour en enlever un???
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Denys,
Voilà pour le principe, la procédure peut être déclenché par différents événements selon ton application. Tu dois modifier le nom de la feuille de la procédure où est située ta liste....
'---------------------- Private Sub CommandButton1_Click()
Dim Rg As Range, A As Variant With Worksheets("Feuil1") Set Rg = .Range("A7:A" & Range("A65536").End(xlUp).Row) End With A = Application.Match(Me.TextBox1, Rg, 0) If Not IsError(A) Then Rg(A).Delete (xlUp) End If
End Sub '----------------------
Salutations!
"Denys" a écrit dans le message de news:18c8201c41b47$cd135240$ Re-Bonjour à tous,
Je voudrais créer un petit gestionnaire d'employés avec un Userform. J'aimerais que l'utilisateur puisse ajouter ou enlever un nom de la liste.
En fait, je pensais qu'avec un textbox l'utilisateur entre un nom qui se rajoute à la liste qui se trouve en colonne G par exemple... De A7 jusqu'à Ax, il y aurait une liste déroulante se basant sur cette liste.
Maintenant, s'il est facile de rajouter un nom sur la liste de la colonne G, comment faire pour en enlever un???
Z'auriez une petite idée???
Merci
Denys
Bonjour Denys,
Voilà pour le principe, la procédure peut être déclenché par différents événements selon ton application.
Tu dois modifier le nom de la feuille de la procédure où est située ta liste....
'----------------------
Private Sub CommandButton1_Click()
Dim Rg As Range, A As Variant
With Worksheets("Feuil1")
Set Rg = .Range("A7:A" & Range("A65536").End(xlUp).Row)
End With
A = Application.Match(Me.TextBox1, Rg, 0)
If Not IsError(A) Then
Rg(A).Delete (xlUp)
End If
End Sub
'----------------------
Salutations!
"Denys" <anonymous@discussions.microsoft.com> a écrit dans le message de news:18c8201c41b47$cd135240$a101280a@phx.gbl...
Re-Bonjour à tous,
Je voudrais créer un petit gestionnaire d'employés avec un
Userform. J'aimerais que l'utilisateur puisse ajouter ou
enlever un nom de la liste.
En fait, je pensais qu'avec un textbox l'utilisateur entre
un nom qui se rajoute à la liste qui se trouve en colonne
G par exemple... De A7 jusqu'à Ax, il y aurait une liste
déroulante se basant sur cette liste.
Maintenant, s'il est facile de rajouter un nom sur la
liste de la colonne G, comment faire pour en enlever un???
Voilà pour le principe, la procédure peut être déclenché par différents événements selon ton application. Tu dois modifier le nom de la feuille de la procédure où est située ta liste....
'---------------------- Private Sub CommandButton1_Click()
Dim Rg As Range, A As Variant With Worksheets("Feuil1") Set Rg = .Range("A7:A" & Range("A65536").End(xlUp).Row) End With A = Application.Match(Me.TextBox1, Rg, 0) If Not IsError(A) Then Rg(A).Delete (xlUp) End If
End Sub '----------------------
Salutations!
"Denys" a écrit dans le message de news:18c8201c41b47$cd135240$ Re-Bonjour à tous,
Je voudrais créer un petit gestionnaire d'employés avec un Userform. J'aimerais que l'utilisateur puisse ajouter ou enlever un nom de la liste.
En fait, je pensais qu'avec un textbox l'utilisateur entre un nom qui se rajoute à la liste qui se trouve en colonne G par exemple... De A7 jusqu'à Ax, il y aurait une liste déroulante se basant sur cette liste.
Maintenant, s'il est facile de rajouter un nom sur la liste de la colonne G, comment faire pour en enlever un???
Z'auriez une petite idée???
Merci
Denys
Denys
Bonsoir Denis,
Voilà qu'à peine rentré du boulot que je m'aperçois que tu es déjà venu à mon secours....
Encore une fois, merci pour ta précieuse aide....
Denys
-----Message d'origine----- Bonjour Denys,
Voilà pour le principe, la procédure peut être déclenché par différents événements selon ton application.
Tu dois modifier le nom de la feuille de la procédure où est située ta liste....
'---------------------- Private Sub CommandButton1_Click()
Dim Rg As Range, A As Variant With Worksheets("Feuil1") Set Rg = .Range("A7:A" & Range("A65536").End (xlUp).Row)
End With A = Application.Match(Me.TextBox1, Rg, 0) If Not IsError(A) Then Rg(A).Delete (xlUp) End If
End Sub '----------------------
Salutations!
"Denys" a écrit dans le message de news:18c8201c41b47$cd135240
$
Re-Bonjour à tous,
Je voudrais créer un petit gestionnaire d'employés avec un
Userform. J'aimerais que l'utilisateur puisse ajouter ou enlever un nom de la liste.
En fait, je pensais qu'avec un textbox l'utilisateur entre
un nom qui se rajoute à la liste qui se trouve en colonne G par exemple... De A7 jusqu'à Ax, il y aurait une liste déroulante se basant sur cette liste.
Maintenant, s'il est facile de rajouter un nom sur la liste de la colonne G, comment faire pour en enlever un???
Z'auriez une petite idée???
Merci
Denys
.
Bonsoir Denis,
Voilà qu'à peine rentré du boulot que je m'aperçois que
tu es déjà venu à mon secours....
Encore une fois, merci pour ta précieuse aide....
Denys
-----Message d'origine-----
Bonjour Denys,
Voilà pour le principe, la procédure peut être déclenché
par différents événements selon ton application.
Tu dois modifier le nom de la feuille de la procédure où
est située ta liste....
'----------------------
Private Sub CommandButton1_Click()
Dim Rg As Range, A As Variant
With Worksheets("Feuil1")
Set Rg = .Range("A7:A" & Range("A65536").End
(xlUp).Row)
End With
A = Application.Match(Me.TextBox1, Rg, 0)
If Not IsError(A) Then
Rg(A).Delete (xlUp)
End If
End Sub
'----------------------
Salutations!
"Denys" <anonymous@discussions.microsoft.com> a écrit
dans le message de news:18c8201c41b47$cd135240
$a101280a@phx.gbl...
Re-Bonjour à tous,
Je voudrais créer un petit gestionnaire d'employés avec
un
Userform. J'aimerais que l'utilisateur puisse ajouter ou
enlever un nom de la liste.
En fait, je pensais qu'avec un textbox l'utilisateur
entre
un nom qui se rajoute à la liste qui se trouve en colonne
G par exemple... De A7 jusqu'à Ax, il y aurait une liste
déroulante se basant sur cette liste.
Maintenant, s'il est facile de rajouter un nom sur la
liste de la colonne G, comment faire pour en enlever
un???
Voilà qu'à peine rentré du boulot que je m'aperçois que tu es déjà venu à mon secours....
Encore une fois, merci pour ta précieuse aide....
Denys
-----Message d'origine----- Bonjour Denys,
Voilà pour le principe, la procédure peut être déclenché par différents événements selon ton application.
Tu dois modifier le nom de la feuille de la procédure où est située ta liste....
'---------------------- Private Sub CommandButton1_Click()
Dim Rg As Range, A As Variant With Worksheets("Feuil1") Set Rg = .Range("A7:A" & Range("A65536").End (xlUp).Row)
End With A = Application.Match(Me.TextBox1, Rg, 0) If Not IsError(A) Then Rg(A).Delete (xlUp) End If
End Sub '----------------------
Salutations!
"Denys" a écrit dans le message de news:18c8201c41b47$cd135240
$
Re-Bonjour à tous,
Je voudrais créer un petit gestionnaire d'employés avec un
Userform. J'aimerais que l'utilisateur puisse ajouter ou enlever un nom de la liste.
En fait, je pensais qu'avec un textbox l'utilisateur entre
un nom qui se rajoute à la liste qui se trouve en colonne G par exemple... De A7 jusqu'à Ax, il y aurait une liste déroulante se basant sur cette liste.
Maintenant, s'il est facile de rajouter un nom sur la liste de la colonne G, comment faire pour en enlever un???
