comment affecter une variable a une feuille x et une cellule y Résolu/Fermé

Question

bonjour a tous
comment affecter une une variable a une feuille x et une cellule y
une variable a une feuille x et une cellule y

comme dans cet exemple

Sub calucl()Dim datell As Datedatell = InputBox("entre la date ?")MsgBox (datell)Range("A1").SelectSelection.Value = datellEnd Sub

pijaku · Answer

Bonjour,

Question incompréhensible.

A tout hasard, comme ceci :

Sub calcul(Rng As Range, Value As Variant)
    Rng.Value = Value
End Sub

flexi2202 · Answer

merci pour la réponse
pour etre plus clair je souhaiterais demander via un InputBox une date 
et que cette soit affiche par exemple dans la cellule A1 de la feuille 3

eriiic · Answer

Bonjour,

Sheets("Feuil3").[A1] = datell
eric

pijaku · Answer

Pour être plus clair 
Râté...

Peut-être :
Option Explicit

Private Const MAFEUILLE As String = "Feuil3"
Private Const MACELLULE As String = "B1"

Sub Macro2()
Dim Cpt As Integer, maDate As String
   'demande de saisie
   Do
      Cpt = Cpt + 1
      maDate = InputBox("Entrez votre date : ", "Saisie date", "__/__/____")
   Loop While Not IsDate(maDate) And Cpt <= 4 And StrPtr(maDate) <> 0
   
   'traitement de la saisie
   If StrPtr(maDate) = 0 Then          'abandon
      MsgBox "Abandon utilisateur"
   Else
      If Cpt < 4 Then                  'saisie correcte
         Sheets(MAFEUILLE).Range(MACELLULE).Value = CDate(maDate)
      Else                             'mauvaise saisie 5 fois de suite
         MsgBox "trop bête pour saisir une date en 5 essais"
      End If
   End If
End Sub

Comment affecter une variable a une feuille x et une cellule y

4 réponses

Discussions similaires

Newsletters