Bonjour

J'essaie de remplacer la MsgBox par un Userform mais j'obtiens une erreur 1004 et ne comprend vraiment pas pourquoi

Voici les codes si quelqu'un a le temps d'y jeter un oeil merci

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'recherche de la cellule dans la colonne A
If Target.Column = 1 Then


    UserForm1.Show
    Dim cellule As String
    cellule = Target.Address

End If

End Sub

'boutons Userform

Private Sub CommandButton1_Click()
    Sheets("SAISIE").Range("C12").Value = Sheets("Client").Range(cellule).Value
    Unload Me

End Sub

Private Sub CommandButton2_Click()
    Sheets("PAGE2").Range("C12").Value = Sheets("Client").Range(cellule).Value
    Unload Me

End Sub

Merci Didier

je bataillais avec ta MsgBox personnalisée

a défaut je prend

Bonjour à tous tres bonne année 2023

Voici mon petit probleme surement tres simple mais pour moi ....

Je voudrais que la macro si dessous me demande la  feuille du classeur de destination avant de s'executer

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim rang As Long
Cancel = True
If Target.Column = 1 Then 'double click dans la 1er colonne
    With Sheets("SAISIE")
        .CellS(12, 3) = Target
    End With
    MsgBox "Code Client transferé !"
    Worksheets("SAISIE").Select
End If

End Sub

Actuellement elle s'applique sur la feuille "SAISIE" j'aimerai avoir le choix de la direction

Soit la feuille "SAISIE" soit la Feuil "PAGE2"

Merci

Ok merci je vais esayer de comprendre ce qui va pas chez moi

Bonnes fetes à tous

En effet rien de spécial

Réinstallation d'Excel et tout refonctionne

Bonjour à tous et tres bonnes fetes de fin d'année

Quelqu'un pourrait me dire pourquoi cet Userform ne fonctionne pas ?

Beaucoup d'erreur incompatibilité de type

Merci

Merci tout simplement parfait

Bonjour à tous

Voici une macro qui met la premier lettre du 1er mot en majuscule
 

Sub MajusculePremiereLettre()
 

Dim myRange As Range
Dim myArray As Variant
Dim i As Long

Set myRange = [c15:c52]
myArray = myRange.Value


For i = 1 To UBound(myArray, 1)
        myArray(i, 1) = UCase$(Left$(myArray(i, 1), 1)) & _
        LCase$(Right$(myArray(i, 1), Len(myArray(i, 1)) - 1))

Next

myRange = myArray

''MsgBox ("Fin de traitement")

  End Sub

Cela fonctionne tres bien si toutes les les lignes de la plage selectionnée sont remplies mais si on a une ligne vide erreur 5

Y a t'il moyen de dire a excel si ligne vide tester la suivante ?

Merci

Mise à jour ça ne fonctionne plus du tout pourquoi j'en sais rien

Tu es mon idole

c'est exactement ma recherche

Bonjour à tous

j'aimerai que l'userform ci joint ( Merci à Didier MyDearFriend ) fasse une autre recherche basée sur le résultat de la première

et qu'ensuite un double clic sur la ligne cherchée nous ramene sur la cellule de la colone A correspondante de la ligne concernée de la  Base de Données

Est-ce possible?

Merci