Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel userform et nom de cellules

userform et nom de cellules

2 réponses
Avatar
sunburn
Bonjour,
j'ai un userform qui doit faire appel à des valeurs qui existent dans mon
classeur.
La feuille où est située la valeur est amenée à voir son nombre de ligne
augmenter, et donc il a fallu que je nomme mes cellules.
le hic, c'est pour appelé ma cellule nommée dans mon userform :
-----
Private Sub UserForm_Initialize()
'With Worksheets("80_31n")
Me.val1 = ([CSSS3N]) 'ce que j'ai changé au lieu de Range("D41")
'End With
End Sub

Private Sub B_OK_Click()
rep = MsgBox("ATTENTION ! Vous allez modifier les données actuelles ?" _
& vbLf & "Etes-vous sûr(e) ?", vbYesNo)
Application.ScreenUpdating = False
If rep = vbNo Then Exit Sub
'contrôles
For I = 1 To 1
If Not IsNumeric(Controls("val" & I)) Then
MsgBox "Erreur!"
Me("val" & I).SetFocus
Exit Sub
End If
Next I
'transfert BD
Sheets("80_31n").[CSSS3N] = CDbl(Me.val1) 'et là ???
Sheets("80_31s").[CSSS3S] = CDbl(Me.val1) 'et là ????
Bouton80_31.Hide
End Sub
------
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
MichDenis
Bonjour,

tu utilises le nom que tu as défini pour ta cellule

Range("Nom") = ??


"sunburn" a écrit dans le message de groupe de
discussion :
Bonjour,
j'ai un userform qui doit faire appel à des valeurs qui existent dans mon
classeur.
La feuille où est située la valeur est amenée à voir son nombre de ligne
augmenter, et donc il a fallu que je nomme mes cellules.
le hic, c'est pour appelé ma cellule nommée dans mon userform :
-----
Private Sub UserForm_Initialize()
'With Worksheets("80_31n")
Me.val1 = ([CSSS3N]) 'ce que j'ai changé au lieu de Range("D41")
'End With
End Sub

Private Sub B_OK_Click()
rep = MsgBox("ATTENTION ! Vous allez modifier les données actuelles ?" _
& vbLf & "Etes-vous sûr(e) ?", vbYesNo)
Application.ScreenUpdating = False
If rep = vbNo Then Exit Sub
'contrôles
For I = 1 To 1
If Not IsNumeric(Controls("val" & I)) Then
MsgBox "Erreur!"
Me("val" & I).SetFocus
Exit Sub
End If
Next I
'transfert BD
Sheets("80_31n").[CSSS3N] = CDbl(Me.val1) 'et là ???
Sheets("80_31s").[CSSS3S] = CDbl(Me.val1) 'et là ????
Bouton80_31.Hide
End Sub
------
Avatar
sunburn
OK,
en cherchant, je viens de trouver que c'était ça qui allait pas. je viens
juste de modifier avec les .range au lieu des [] ....
des fois, il faudrait que je réfléchisse plus vite.
merci à toi
YANN

"MichDenis" wrote:

Bonjour,

tu utilises le nom que tu as défini pour ta cellule

Range("Nom") = ??


"sunburn" a écrit dans le message de groupe de
discussion :
Bonjour,
j'ai un userform qui doit faire appel à des valeurs qui existent dans mon
classeur.
La feuille où est située la valeur est amenée à voir son nombre de ligne
augmenter, et donc il a fallu que je nomme mes cellules.
le hic, c'est pour appelé ma cellule nommée dans mon userform :
-----
Private Sub UserForm_Initialize()
'With Worksheets("80_31n")
Me.val1 = ([CSSS3N]) 'ce que j'ai changé au lieu de Range("D41")
'End With
End Sub

Private Sub B_OK_Click()
rep = MsgBox("ATTENTION ! Vous allez modifier les données actuelles ?" _
& vbLf & "Etes-vous sûr(e) ?", vbYesNo)
Application.ScreenUpdating = False
If rep = vbNo Then Exit Sub
'contrôles
For I = 1 To 1
If Not IsNumeric(Controls("val" & I)) Then
MsgBox "Erreur!"
Me("val" & I).SetFocus
Exit Sub
End If
Next I
'transfert BD
Sheets("80_31n").[CSSS3N] = CDbl(Me.val1) 'et là ???
Sheets("80_31s").[CSSS3S] = CDbl(Me.val1) 'et là ????
Bouton80_31.Hide
End Sub
------