bonjour
voici ma formule dans un userform avec texte box mais des que je change la
valeur du textex box score1 j'apuie sur le bouton valider mais rien ne
change sur la feuille comment faire merci de tout
frederic
Range("A2").Select
Trouve = False
Do Until ActiveCell.Value = ""
If ActiveCell.Value = NumNEquip Then
Trouve = True
With SaisieScores
.Noms1 = ActiveCell.Offset(0, 2).Value
.NOMS2 = ActiveCell.Offset(0, 1).Value
.NOMS3 = ActiveCell.Offset(0, 3).Value
.NOMS4 = ActiveCell.Offset(0, 4).Value
.NOMS5 = ActiveCell.Offset(0, 6).Value
.Score1 = ActiveCell.Offset(0, 9).Value
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
MPi
Salut,
Je ne suis pas certain de bien comprendre, mais bon... Ton code charge sur le Userform les valeurs lues sur une feuille à partir de la cellule active.
Pour modifier les données de la feuille à partir du UserForm, il faudrait que tu écrives une autre fonction qui fasse l'inverse. ActiveCell.Offset(0, 2).Value = .Noms1 ActiveCell.Offset(0, 1).Value = .NOMS2 ......
Michel
bonjour voici ma formule dans un userform avec texte box mais des que je change la valeur du textex box score1 j'apuie sur le bouton valider mais rien ne change sur la feuille comment faire merci de tout frederic
Range("A2").Select Trouve = False Do Until ActiveCell.Value = ""
If ActiveCell.Value = NumNEquip Then Trouve = True With SaisieScores .Noms1 = ActiveCell.Offset(0, 2).Value .NOMS2 = ActiveCell.Offset(0, 1).Value .NOMS3 = ActiveCell.Offset(0, 3).Value .NOMS4 = ActiveCell.Offset(0, 4).Value .NOMS5 = ActiveCell.Offset(0, 6).Value .Score1 = ActiveCell.Offset(0, 9).Value
End With
Salut,
Je ne suis pas certain de bien comprendre, mais bon...
Ton code charge sur le Userform les valeurs lues sur une feuille à partir de
la cellule active.
Pour modifier les données de la feuille à partir du UserForm, il faudrait
que tu écrives une autre fonction qui fasse l'inverse.
ActiveCell.Offset(0, 2).Value = .Noms1
ActiveCell.Offset(0, 1).Value = .NOMS2
......
Michel
bonjour
voici ma formule dans un userform avec texte box mais des que je change la
valeur du textex box score1 j'apuie sur le bouton valider mais rien ne
change sur la feuille comment faire merci de tout
frederic
Range("A2").Select
Trouve = False
Do Until ActiveCell.Value = ""
If ActiveCell.Value = NumNEquip Then
Trouve = True
With SaisieScores
.Noms1 = ActiveCell.Offset(0, 2).Value
.NOMS2 = ActiveCell.Offset(0, 1).Value
.NOMS3 = ActiveCell.Offset(0, 3).Value
.NOMS4 = ActiveCell.Offset(0, 4).Value
.NOMS5 = ActiveCell.Offset(0, 6).Value
.Score1 = ActiveCell.Offset(0, 9).Value
Je ne suis pas certain de bien comprendre, mais bon... Ton code charge sur le Userform les valeurs lues sur une feuille à partir de la cellule active.
Pour modifier les données de la feuille à partir du UserForm, il faudrait que tu écrives une autre fonction qui fasse l'inverse. ActiveCell.Offset(0, 2).Value = .Noms1 ActiveCell.Offset(0, 1).Value = .NOMS2 ......
Michel
bonjour voici ma formule dans un userform avec texte box mais des que je change la valeur du textex box score1 j'apuie sur le bouton valider mais rien ne change sur la feuille comment faire merci de tout frederic
Range("A2").Select Trouve = False Do Until ActiveCell.Value = ""
If ActiveCell.Value = NumNEquip Then Trouve = True With SaisieScores .Noms1 = ActiveCell.Offset(0, 2).Value .NOMS2 = ActiveCell.Offset(0, 1).Value .NOMS3 = ActiveCell.Offset(0, 3).Value .NOMS4 = ActiveCell.Offset(0, 4).Value .NOMS5 = ActiveCell.Offset(0, 6).Value .Score1 = ActiveCell.Offset(0, 9).Value
