273 résultats trouvés

par KTM
18 décembre 2019, 17:41
Forum : Excel - VBA
Sujet : Changer couleur cellule
Réponses : 9
Vues : 77

Re: Changer couleur cellule

M12 a écrit :
18 décembre 2019, 17:07
Bonjour,

A tester
KTM.xlsm
Merci
Mais comment adapter pour que la procédure s’étende chaque fois a la dernière colonne utilisée ? Merci
par KTM
18 décembre 2019, 17:10
Forum : Excel - VBA
Sujet : Changer couleur cellule
Réponses : 9
Vues : 77

Re: Changer couleur cellule

M12 a écrit :
18 décembre 2019, 17:07
Bonjour,

A tester
KTM.xlsm
Merci M12
Tres sympa
par KTM
18 décembre 2019, 16:48
Forum : Excel - VBA
Sujet : Changer couleur cellule
Réponses : 9
Vues : 77

Changer couleur cellule

Bonsoir chers tous
Je voudrais un code pour que a chaque cellule sélectionnée dans "B2:C4" et "B6:C8" la cellule correspondante en colonne A change de couleur et redeviens normale si on change de ligne.
Merci
CellCouleur .xlsm
(9.68 Kio) Téléchargé 7 fois
par KTM
17 décembre 2019, 08:40
Forum : Excel - VBA
Sujet : Valider saisie dans textbox
Réponses : 6
Vues : 87

Re: Valider saisie dans textbox

Salut KTM, Salut l'équipe, autre approche... Private Sub TextBox1_Change() ' If Not IsNumeric(Me.TextBox1.Text) Then Me.TextBox1.Text = "" ' End Sub Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) ' If Val(Me.TextBox1.Text) = 0 Or Val(Me.TextBox1.Text) > 99 Then Me.TextBox1...
par KTM
17 décembre 2019, 08:39
Forum : Excel - VBA
Sujet : Valider saisie dans textbox
Réponses : 6
Vues : 87

Re: Valider saisie dans textbox

Salut KTM le fil ... Un truc comme ça peut être Private Sub TextBox2_Change() If Val(Left(TextBox2, 1)) < Val(Left(TextBox1, 1)) Then TextBox2 = "" Else If Val(Mid(TextBox2, 2, 1)) <= Val(Mid(TextBox1, 2, 1)) Then TextBox2 = Left(TextBox2, 1) End If End If TextBox2 = Left(TextBox2, 3) If Not IsNume...
par KTM
16 décembre 2019, 16:57
Forum : Excel - VBA
Sujet : Valider saisie dans textbox
Réponses : 6
Vues : 87

Re: Valider saisie dans textbox

Xmenpl a écrit :
16 décembre 2019, 16:33
Bonjour,
Comprends pas très bien la question car le fichier joint contient déjà un code qui limite la saisie de 1 à 100
dans les deux textbox ::o
Merci
Je veux dire:
Si textbox1 est renseigné il faudrait que textbox2 prenne des valeurs strictement supérieures à textbox1
par KTM
16 décembre 2019, 16:20
Forum : Excel - VBA
Sujet : Valider saisie dans textbox
Réponses : 6
Vues : 87

Valider saisie dans textbox

Bonjour Forum Jai deux textbox dans lesquels je dois saisir un age min et max les textbox doivent prendre des entiers allant de 1 a 100 Les codes ont été déjà faits mais mon soucis: Comment paramétrer le textbox2 ( Age max) pour qu'il ne prenne que des valeurs allant de min+1 à 100 ? merci encore. C...
par KTM
16 décembre 2019, 10:27
Forum : Excel - VBA
Sujet : Alimenter Listbox depuis une autre feuille
Réponses : 1
Vues : 33

Alimenter Listbox depuis une autre feuille

Bonjour chers tous
Sur ma feuille TB je voudrais lancer mon userform pour afficher dans le listbox une plage située sur la feuille tab
Jai rédigé un code qui apparemment ne fonctionne pas
Merci de jeter un coup d’œil
Classeur1.xlsm
(19.09 Kio) Téléchargé 7 fois
par KTM
14 décembre 2019, 10:53
Forum : Excel - VBA
Sujet : Modifier ou supprimer Via listbox
Réponses : 7
Vues : 165

Re: Modifier ou supprimer Via listbox

Bonjour KTM, Ok, tu peux donc faire la suite ce matin ou dans la journée. Voici le code pour modifier. Une fois entrée le(s) changement(s) dans le(s) contrôle(s) du formulaire. Au clic sur le bouton Modifier cela va directement se voir sur ta sortie Liste. Private Sub Modifier_Click() With Sheets("...
par KTM
14 décembre 2019, 02:06
Forum : Excel - VBA
Sujet : Modifier ou supprimer Via listbox
Réponses : 7
Vues : 165

Re: Modifier ou supprimer Via listbox

Bonsoir KTM, Il est tard pour te répondre sur ton besoin. Je te laisse déjà une partie de code que tu peux installer et développer demain. Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Lin = ListBox2.ListIndex 'Note faire Dim Lin as Integer après Option Explicit TextBox1.Text...