userform et nom de cellules

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichDenis
Le #19815731
Bonjour,

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

Range("Nom") = ??


"sunburn" 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
------
sunburn
Le #19815831
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" 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
------




Publicité
Poster une réponse
Anonyme