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

Résolu/Fermé

flexi2202 Messages postés 3784 Date d'inscription lundi 14 mars 2011 Statut Membre Dernière intervention 30 mars 2024 - 30 oct. 2018 à 11:33
flexi2202 Messages postés 3784 Date d'inscription lundi 14 mars 2011 Statut Membre Dernière intervention 30 mars 2024 - 30 oct. 2018 à 13:05

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 Date
datell = InputBox("entre la date ?")
MsgBox (datell)

Range("A1").Select
Selection.Value = datell
End Sub

A voir également:

Comment affecter une variable a une feuille x et une cellule y
Aller à la ligne dans une cellule excel - Guide
Bloquer une cellule excel - Guide
Supprimer une feuille word - Guide
Comment colorer une cellule excel avec une formule si - Guide
Excel remplir automatiquement une cellule en fonction d'une autre ✓ - Forum Excel

4 réponses

Réponse 1 / 4

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
30 oct. 2018 à 11:56

Bonjour,

Question incompréhensible.

A tout hasard, comme ceci :

Sub calcul(Rng As Range, Value As Variant)
    Rng.Value = Value
End Sub

flexi2202 Messages postés 3784 Date d'inscription lundi 14 mars 2011 Statut Membre Dernière intervention 30 mars 2024 179
30 oct. 2018 à 13:05

bonjour merci pour le code

Réponse 2 / 4

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 211
30 oct. 2018 à 12:20

Bonjour,

Sheets("Feuil3").[A1] = datell

eric

flexi2202 Messages postés 3784 Date d'inscription lundi 14 mars 2011 Statut Membre Dernière intervention 30 mars 2024 179
30 oct. 2018 à 12:42

bonjour eric
super cela fonctionne
un grand merci

Réponse 3 / 4

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
30 oct. 2018 à 12:25

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

flexi2202 Messages postés 3784 Date d'inscription lundi 14 mars 2011 Statut Membre Dernière intervention 30 mars 2024 179
30 oct. 2018 à 12:43

merci c est gentil
cela fonctionne du tonnerre

Réponse 4 / 4

flexi2202 Messages postés 3784 Date d'inscription lundi 14 mars 2011 Statut Membre Dernière intervention 30 mars 2024 179
30 oct. 2018 à 12:15

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

Discussions similaires

programme qui n'affiche pas le mot secret

Dimensions L x l x H : comment lire ces infos ?

Excel : colorer une cellule sous condition d'une autre ?

Reporter valeur sur autre feuille avec critere

Formule Excel : "SI" une cellule contient un mot, alors ?

Discussions similaires

Newsletters