Avec 2 textbox dans un userform je demande d'ajouter une appli (1e
textbox) et son type (2ème textbox).
Je fais une recherche du type entré dans la 2ème textbox sur ma feuill
pour me positionner sur la bonne colonne. Ensuite, je souhaiterai
pouvoir insérer dans cette colonne l'appli entrée dans la 1ère textbo
et qu'elle se range dans l'ordre alphabétique sans provoquer d
changement sur les autres colonnes. C'est tout. Si quelqu'un peu
m'aider ca serait très sympa..
--
benjaminalim
-----------------------------------------------------------------------
benjaminalimi's Profile: http://www.msusenet.com/member.php?userid=209
View this thread: http://www.msusenet.com/t-187092079
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
Daniel
Bonjour. Essaie :
Sub Test() Dim Typ As String, Appli As String, Col As Integer, Ligne As Variant Typ = Textbox1.Value Appli = Textbox2.Value Col = Application.Match(Typ, Range("A1:I1"), 0) Ligne = Application.Match(Appli, Range("A:A").Offset(0, Col - 1)) Range("A1").Offset(Ligne, Col - 1).Insert Shift:=xlDown Range("A1").Offset(Ligne, Col - 1).Value = Appli End Sub
Cordialement. Daniel
"benjaminalimi" a écrit dans le message de news:
J'ai une feuille avec 9 colonnes (correspondant à 9 types) contenant des applications :
type1 type2 type3 type4 ........ ........ (tout cela est en ligne 1)
Avec 2 textbox dans un userform je demande d'ajouter une appli (1er textbox) et son type (2ème textbox). Je fais une recherche du type entré dans la 2ème textbox sur ma feuille pour me positionner sur la bonne colonne. Ensuite, je souhaiterais pouvoir insérer dans cette colonne l'appli entrée dans la 1ère textbox et qu'elle se range dans l'ordre alphabétique sans provoquer de changement sur les autres colonnes. C'est tout. Si quelqu'un peut m'aider ca serait très sympa...
Sub Test()
Dim Typ As String, Appli As String, Col As Integer, Ligne As Variant
Typ = Textbox1.Value
Appli = Textbox2.Value
Col = Application.Match(Typ, Range("A1:I1"), 0)
Ligne = Application.Match(Appli, Range("A:A").Offset(0, Col - 1))
Range("A1").Offset(Ligne, Col - 1).Insert Shift:=xlDown
Range("A1").Offset(Ligne, Col - 1).Value = Appli
End Sub
Cordialement.
Daniel
"benjaminalimi" <benjaminalimi.1sk90c@no-mx.msusenet.com> a écrit dans le
message de news: benjaminalimi.1sk90c@no-mx.msusenet.com...
J'ai une feuille avec 9 colonnes (correspondant à 9 types) contenant des
applications :
type1 type2 type3 type4 ........ ........ (tout cela
est en ligne 1)
Avec 2 textbox dans un userform je demande d'ajouter une appli (1er
textbox) et son type (2ème textbox).
Je fais une recherche du type entré dans la 2ème textbox sur ma feuille
pour me positionner sur la bonne colonne. Ensuite, je souhaiterais
pouvoir insérer dans cette colonne l'appli entrée dans la 1ère textbox
et qu'elle se range dans l'ordre alphabétique sans provoquer de
changement sur les autres colonnes. C'est tout. Si quelqu'un peut
m'aider ca serait très sympa...
Sub Test() Dim Typ As String, Appli As String, Col As Integer, Ligne As Variant Typ = Textbox1.Value Appli = Textbox2.Value Col = Application.Match(Typ, Range("A1:I1"), 0) Ligne = Application.Match(Appli, Range("A:A").Offset(0, Col - 1)) Range("A1").Offset(Ligne, Col - 1).Insert Shift:=xlDown Range("A1").Offset(Ligne, Col - 1).Value = Appli End Sub
Cordialement. Daniel
"benjaminalimi" a écrit dans le message de news:
J'ai une feuille avec 9 colonnes (correspondant à 9 types) contenant des applications :
type1 type2 type3 type4 ........ ........ (tout cela est en ligne 1)
Avec 2 textbox dans un userform je demande d'ajouter une appli (1er textbox) et son type (2ème textbox). Je fais une recherche du type entré dans la 2ème textbox sur ma feuille pour me positionner sur la bonne colonne. Ensuite, je souhaiterais pouvoir insérer dans cette colonne l'appli entrée dans la 1ère textbox et qu'elle se range dans l'ordre alphabétique sans provoquer de changement sur les autres colonnes. C'est tout. Si quelqu'un peut m'aider ca serait très sympa...
et si je veux supprimer une appli dans la feuille, je fais comment?
Je ne sais pas dans quelle colonne ni dans quelle ligne elle se trouv et je veux une suppression "propre" sans rien modifier des autre colonnes et sans laisser de cellule vide par exemple. Merc
et si je veux supprimer une appli dans la feuille, je fais comment?
Je ne sais pas dans quelle colonne ni dans quelle ligne elle se trouv
et je veux une suppression "propre" sans rien modifier des autre
colonnes et sans laisser de cellule vide par exemple.
Merc
et si je veux supprimer une appli dans la feuille, je fais comment?
Je ne sais pas dans quelle colonne ni dans quelle ligne elle se trouv et je veux une suppression "propre" sans rien modifier des autre colonnes et sans laisser de cellule vide par exemple. Merc
Puisque tu es de bonne humeur, et que nous avons le plaisir, l'honneur et l'avantage de bénéficier de plus en pluis souvent de ta présence... Pourrais tu faire l'effort de mettre un titre cohérent avec ta question ? En lieu et place de tes banalités. Pour ce sujet, je suggère " insérer une appli dans un textbox dans l'ordre alphabétique" ou quelque chose comme ça.
L'intérêt c'est que les intervenants voient du premier coup d'oeil le domaine, et ensuite quand on google, le sujet sort plus facilement et surtout il est plus facilement visible.
Pour le fun, je google sur le mot "clairement" et de bien pénibles souvenirs resurgissent.
http://minilien.com/?dtjxzbz9rN
Merci pour ta participation active et ordonnée. Cordialement
à+twinley
benjaminalimi wrote:
Merci Beaucoup !!!! Ca Marche Bien Encore Merci !
Bonjour,
Puisque tu es de bonne humeur, et que nous avons le plaisir, l'honneur
et l'avantage de bénéficier de plus en pluis souvent de ta présence...
Pourrais tu faire l'effort de mettre un titre cohérent avec ta question
? En lieu et place de tes banalités.
Pour ce sujet, je suggère " insérer une appli dans un textbox dans
l'ordre alphabétique" ou quelque chose comme ça.
L'intérêt c'est que les intervenants voient du premier coup d'oeil le
domaine, et ensuite quand on google, le sujet sort plus facilement et
surtout il est plus facilement visible.
Pour le fun, je google sur le mot "clairement" et de bien pénibles
souvenirs resurgissent.
http://minilien.com/?dtjxzbz9rN
Merci pour ta participation active et ordonnée.
Cordialement
Puisque tu es de bonne humeur, et que nous avons le plaisir, l'honneur et l'avantage de bénéficier de plus en pluis souvent de ta présence... Pourrais tu faire l'effort de mettre un titre cohérent avec ta question ? En lieu et place de tes banalités. Pour ce sujet, je suggère " insérer une appli dans un textbox dans l'ordre alphabétique" ou quelque chose comme ça.
L'intérêt c'est que les intervenants voient du premier coup d'oeil le domaine, et ensuite quand on google, le sujet sort plus facilement et surtout il est plus facilement visible.
Pour le fun, je google sur le mot "clairement" et de bien pénibles souvenirs resurgissent.
http://minilien.com/?dtjxzbz9rN
Merci pour ta participation active et ordonnée. Cordialement
à+twinley
benjaminalimi wrote:
Merci Beaucoup !!!! Ca Marche Bien Encore Merci !
Daniel
En espérant que le nom de l'appli soit unique :
Sub Supp() Dim Plage As Range, Cellule As Range Set Plage = Range("A1", Range("A1").SpecialCells(xlCellTypeLastCell)) Set Cellule = Plage.Find(Textbox3.Value, LookIn:=xlValues) MsgBox Cellule.Address Cellule.Delete Shift:=xlUp End Sub
Cordialement. Daniel "benjaminalimi" a écrit dans le message de news:
et si je veux supprimer une appli dans la feuille, je fais comment?
Je ne sais pas dans quelle colonne ni dans quelle ligne elle se trouve et je veux une suppression "propre" sans rien modifier des autres colonnes et sans laisser de cellule vide par exemple. Merci
Sub Supp()
Dim Plage As Range, Cellule As Range
Set Plage = Range("A1", Range("A1").SpecialCells(xlCellTypeLastCell))
Set Cellule = Plage.Find(Textbox3.Value, LookIn:=xlValues)
MsgBox Cellule.Address
Cellule.Delete Shift:=xlUp
End Sub
Cordialement.
Daniel
"benjaminalimi" <benjaminalimi.1skhch@no-mx.msusenet.com> a écrit dans le
message de news: benjaminalimi.1skhch@no-mx.msusenet.com...
et si je veux supprimer une appli dans la feuille, je fais comment?
Je ne sais pas dans quelle colonne ni dans quelle ligne elle se trouve
et je veux une suppression "propre" sans rien modifier des autres
colonnes et sans laisser de cellule vide par exemple.
Merci
Sub Supp() Dim Plage As Range, Cellule As Range Set Plage = Range("A1", Range("A1").SpecialCells(xlCellTypeLastCell)) Set Cellule = Plage.Find(Textbox3.Value, LookIn:=xlValues) MsgBox Cellule.Address Cellule.Delete Shift:=xlUp End Sub
Cordialement. Daniel "benjaminalimi" a écrit dans le message de news:
et si je veux supprimer une appli dans la feuille, je fais comment?
Je ne sais pas dans quelle colonne ni dans quelle ligne elle se trouve et je veux une suppression "propre" sans rien modifier des autres colonnes et sans laisser de cellule vide par exemple. Merci
