Textbox comment MàJ

Bonjour le Forum,

Je me tourne vers vous car je planche depuis ce matin sur une mise à jour d'un TEXTBOX dans un USERFORM.

Ma question : Peux t'on mettre à jour un TEXTBOX sur un CLICK ?

Voici mon code à corriger.

Private Sub textBox1_click()

With Sheets("Noms")

If .Range("L3").Value = 1 Then 'L3 à 1 lorsque Modification demandée

lig = ActiveCell.Row

TextBox1 = .Range("B" & lig)

End If

End With

[L3] = 0 'à 1 lorsque Modif demandée

NB: Dans le textBox1_change() la même écriture met à jour TEXTBOX en frappant n'importe quelle caractère.

Autre Question :Quel code faut-il pour mettre à jour la feuille excel en cliquant sur la CommandButton1_Click().

Merci à vous

Annette

Bonjour,

Pourquoi ne pas mettre ton code dans cette macro qui s'exécute à l'ouverture de ton Useform

Private Sub UserForm_Initialize()
dim lig as integer
With Sheets("Noms") 
If .Range("L3").Value = 1 Then
lig = ActiveCell.Row 
TextBox1 = .Range("B" & lig) 
End If 
End With
end sub

Pour ta deuxième question, un petit fichier serait plus facile pour comprendre. Tu veux mettre à jour quoi sur ta feuille ?

Amicalement

Dan

Re bonjour le forum,

ci-joint un petit fichier pour plus de compréhension.

https://www.excel-pratique.com/~files/doc/80TKKa_envoyer_excel_pratique.xls

Merci encore

Annette

Re

J'ai juste modifié la macro ci-dessous en supprimant l'appel au Calendar. Vois si cela correspond déjà à ce que tu veux

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lig As Byte 'mod Dan
lig = ActiveCell.Row 'mod Dan
With Sheets("Noms")
    If Not Intersect(Target, Range("$D$2:$D$51")) Is Nothing Then
            If .Range("$D" & lig).Value <> "" Then
                .Range("$D" & lig).Value = ""
                Else
                .Range("$D" & lig).Value = "X"
            End If
    End If
    If Not Intersect(Target, Range("$B$2:$B$51")) Is Nothing Then
        If .Range("L3").Value = 1 Then
                TextBox1 = .Range("B" & lig)
                TextBox2 = .Range("C" & lig)
                Load UserForm2
        End If
    End If
    If Not Intersect(Target, Range("$E$2:$E$51")) Is Nothing Then
        .Range("E" & lig) = Format(Date, "dd/mm/yy") 'mod Dan
        UserForm1.Show
    End If
 End With
 Cancel = True 'mod Dan
End Sub

J'ai "mod Dan" en regard de ce que je t'ai modifié

Attention à tes variables (DIM as ....) que tu ne déclares pas.

J'ai supprimé l'appel à l'objet Calendar et une instruction "ligne = Activecell.row" dans cette macro.

Autre chose d'un coté tu dis que L3 doit être eégal à 1 pour appeler l'USF et de l'autre tu dis que L3 doit égal à 2. Est -ce juste ?

Pour supprimer un joueur pense au click droite sur le joueur par exemple.

Je dois m'absenter quelque temps je reviendrai plus tard.

Dan

Re bonjour le Forum,

Grand merci à Dan pour la correction.

Seul petit souci le code suivant change la date de la cellule sélectionnée.En cas de changement d'avis la date devient erronée.

'.Range("E" & lig) = Format(Date, "dd/mm/yy") 'mod Dan

Pour la comparaison " L3=2" au lieu de " L3=1" et une action que j'ai voulue pour gérer la comparaison des doublons pour mise à jour.

Pour la suppression je m'y attelle.

"JE TE DIS QUOI"

Annette

[/b]

re,

En cas de changement d'avis la date devient erronée.

Je n'ai pas compris le pb ?

Juste un truc que je vois dans ton fichier c'est que les jours et les mois sont inversés.

Si également de ton coté change l'instruction par --> .Range("E" & lig) = Format(Date, "mm/dd/yy")

Pour la suppression du joueur, essaye ce code à mettre en VBA dans la feuille Noms

Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean)
'Macro Dan pour An.pi -xl pratique le 07/12/08
Dim lig As Byte
If Not Intersect(Target, Range("$B$2:$B$51")) Is Nothing Then
With Sheets("Noms")
lig = ActiveCell.Row
.Range("B" & lig & ":E" & lig).ClearContents
End With
End If
Cancel = True
End Sub

A te relire

Dan

Bonsoir à tous,

Grand merci à Dan pour les réponses .J'ai pu avancer dans mon appli.

Au plaisir

Annette