Résultats de la recherche

Bjr y aurait-il une solution pour simplifier la formule ci contre (Sommeprod sur des cellules non contigües) ...

Bjr, voici un fichier qui explique mon problème de service en alternance !! merci d'avance bye

Bjr, voici un fichier explicatif pour un problème de plage de cellules en fonction d'un nombre !! merci d'avance bye

Bjr, J'ai un problème de formule avec Index Equiv ! Voir le fichier joint merci d'avance bye

Bjr à tous, Voilà suivant un fichier explicatif, ci-joint, je souhaiterai remplir mes poules en fonction d'une BDD !! Mais je coince avec les doublons !! Peut être une recherche par ligne ? Merci d'avance Bye

Boujour le forum, en fonction du code suivant: Sub Tri_Tableau2() Dim R As Object Set R = ActiveSheet.Shapes(Application.Caller).TopLeftCell ActiveSheet.Range(R.Offset(0, -2).Address, R.Offset(2, -12).Address).Select End Sub comment insérer une procédure de tri avec une Key1:=Range("B")...

bonjour, je cherche a réalise un contrôle de date d'une textebox (TB_DateNaissance) d'un userform (Form2). du genre: if Form2.TB_DateNaissance.Value <> Format(CDate(Form2.TB_DateNaissance), "dd/mm/yyyy") Then MsgBox ("Veuillez saisir un bon format de date: (jj/mm/aaaa)")...

Bjr voici un bout de code ou je ne comprends pas pourquoi le Setfocus ne fonctionne pas avec l’événement AfterUpdate dans une textbox ? Private Sub TB_Email_AfterUpdate() If InStr(TB_Email, "@") = 0 Or InStr(TB_Email, ".") = 0 Then MsgBox "Veuillez saisir une adresse mail valide." TB_Email = ""...

bjr, je voudrais simplifier le bout de code suivant: Sheets("Joueurs").[C2:C50].Find(CB_SuppJoueur.Value).Select ActiveCell.Offset(0, -1).ClearContents ActiveCell.Offset(0, 0).ClearContents ActiveCell.Offset(0, 1).ClearContents ActiveCell.Offset(0, 3).ClearContents ActiveCell.Offset(0...

Bjr, suivant l'userform joint, j'aimerai supprimer une ligne de joueur avec la combobox mais sans supprimer les numéros de la colonne A ? une idée de code ? merci d'avance bye

Bjr à tous, Dans le fichier ci joint, j'aimerai comprendre comment la formule en E2 de la feuille "Source" est copier après l'ajout d'un nouveau salarié via le formulaire ? Dans le code je ne vois pas cette formule !! Bye

Bjr, voici un fichier qui explique mon problème !! merci d'avance bye

Bonjour, suivant le code ci-dessous, j'aimerai couper cette ligne dans une autre ligne a fonction de la cellule active et d'une colonne définie (pour éviter un décalage par mégarde) ? Sub Copy1() Range(Cells(ActiveCell.Row, 8), Cells(ActiveCell.Row, 10)).Cut End Sub Possible ou pas ? bye

Bjr je ne trouve pas la fonction LEN sur Excel 2016 !! Est-ce une nouveauté Excel 2019 ? si oui y'a t-il une variante pour 2016 ?

Bonjour à tous, en partant du code ci-contre: Private Sub TB_Email_AfterUpdate() If InStr(TB_Email, "@") = 0 Or InStr(TB_Email, ".") = 0 Then MsgBox ("Veuillez saisir une adresse mail valide") End If End Sub Private Sub TB_Email_Change() Form1.TB_Email = LCase(Trim(TB_Email)) 'LCase=minuscule...

Bonjour, suivant la capture d'écran ci-contre: vous remarquez que je n'ai plus le fond vert au dessus de la barre de menu sur Excel 2016 !! comment la retrouver ? Merci

Bonjour, Je cherche a substituer la virgule par le point au moment de la saisie !! malheureusement avec le code suivant il n'y a aucune action !! ou est l'erreur ? Private Sub TB_Email_Keypress(ByVal keypress As MSForms.ReturnInteger) If KeyAscii = 44 Then KeyAscii = 46 End Sub merci d'avance

Bonjour, je cherche un code qui me permettrai d'empêcher la saisie de nombres dans une textbox ? j'ai essayer avec: Private Sub txtNom_Change() If IsNumeric(Me.txtNom) Then Me.txtNom = "" End If End Sub ...mais sans succès !! Bye

Bonjour à tous, suivant le code ci-dessous comment intégrer en plus de la textbox "TB_Nom", la textbox "TB_Prenom" et Optionbutton "OB_phone" ? Private Sub TB_Nom_Change() 'bloquer bouton Valider If TB_Nom <> "" Then CommandButton1.Enabled = True Else CommandButton1.Enabled = False End If End...

Bonjour, en partant de cette macro: Sub NettoieNombres() Dim c For Each c In Range("U38:U41") ' supprime les espaces à droite c.Value = Left(c.Value, Len(c.Value) - 2) Next End Sub j"aimerai que cette macro me transforme la valeur "N / 518 / 2244" en "2244" ? attention dans la plage concerné il...