XL 2010 creation d'une msgbox pour valider des données

[philmaure]

bonjour,

est il possible de créer une msgbox pour faire, selon la date ou le mois saisie, un copier-collage-spécial valeur des formules de la colonne correspondante.
dans mon fichier test j'ai créé un exemple simplifié de ce dont j'ai besoin.


Merci pour votre aide

Cdlt
Philmaure

 

[philmaure]

re,

ca peut toujours servir : j'ai trouvé cette solution

'demande quel est le mois à traiter
mois = InputBox("QUEL MOIS VOULEZ VOUS VALIDER ? ", vbQuestion)

'Recherche de la valeur saisie en ligne 1
Sheets("Feuil3").Range("D1:Q1").Find(mois, LookIn:=xlValues).Select

'on séléctionne la première cellule ou il y a une données statistique
ActiveCell.Offset(2, 0).Select

' on sélectionne l'ensemble des données statistiques du mois souhaité
Range(ActiveCell, ActiveCell.Offset(99, 0)).Select

'copie collage spécial valeur
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("D3").Select

End Sub

 

[philmaure]

re,

quelles lignes de commande dois je ajouter en cas d'erreur de saisie dans l'input box
Les mois sont verifiés sur la zone : D1:Q1

Merci pour votre aide
Cdlt
Philmaure

 

[JM27]

Bonjour
Peut être comme cela.

'demande quel est le mois à traiter
mois = InputBox("QUEL MOIS VOULEZ VOUS VALIDER ? ", vbQuestion)


'Recherche de la valeur saisie en ligne 1
On Error Resume Next
Sheets("Feuil3").Range("D1:Q1").Find(mois, LookIn:=xlValues).Select
If Err <> 0 Then
    MsgBox " mois mal saisi"
    Exit Sub
End If
On error goto 0
'on séléctionne la première cellule ou il y a une données statistique
ActiveCell.Offset(2, 0).Select

' on sélectionne l'ensemble des données statistiques du mois souhaité
Range(ActiveCell, ActiveCell.Offset(99, 0)).Select

'copie collage spécial valeur
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("D3").Select

End Sub

 

[philmaure]

re,

un grand merci pour la solution.
J'ai simplement remplacé Exit sub par Goto Saisie pour que l'imputbox s'affiche à nouveau pour effectuer une nouvelle saisie.
Bonne journée
Cdlt
Philmaure