Boite de dialogue VB

[Cremouenette]

BOnjour,

je viens de "finir" une macro mais il me maque quelques élements que je ne trouve pas sur le net.

En effet je souhaite avoir une 1er boite de dialogue me demandant sur quelle cellule je veux me positionner et une 2eme boite que me demande la valeur a affecter dans la cellule activée

Sub Insererligne()

'selection sheet
    Sheets(Array("JAN", "FEV", "MAR", "AVR", "MAI", "JUIN", "JUIL", "AOU", "SEP", "OCT", _
        "NOV", "DEC")).Select
    Sheets("JAN").Activate

[B]  
    'Boite de dialogue qui me demande ou je veux insécrer ma ligne[/B]
    
    
    
   'insertion ligne
    
    Selection.Insert Shift:=xlDown
    
    'selection AX
    
    ActiveCell.Offset(-1, 0).Select
    
[B]    'Valeur Ax
    'Boite dialogue demandant la valeur de la cellule active[/B]
    
   'Copy formules
  ActiveCell.Offset(0, 3).Select
    Selection.FillDown
     ActiveCell.Offset(0, 2).Select
    Selection.FillDown
         ActiveCell.Offset(0, 2).Select
    Selection.FillDown
    ActiveCell.Offset(0, 3).Select
    Selection.FillDown

          
          'Copy format
                   ActiveCell.Offset(-1, 0).Select
ActiveCell.EntireRow.Select
          Selection.Copy
          ActiveCell.Offset(1, 0).Select
ActiveCell.EntireRow.Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    
    'select janvier
     Sheets("JAN").Select
    
End Sub

merci de sauver une damoiselle en detresse :d

 

[deudecos]

Re : Boite de dialogue VB

Salut damoiselle en detresse, le forum,

En premier :
Rep = InputBox("Quel est l'emplacement a selectionner ?")
Range(Rep).select
et apres ton code

Et en deuxieme :
Rep2 = InputBox("Valeur de la cellule ?")
ActiveCell = Rep2

Bonne journee

Olivier

 

[Cremouenette]

Re : Boite de dialogue VB

Merci c'est heuuuu exactement la réponse qu'il me fallait 🙄

 

[Cremouenette]

Re : Boite de dialogue VB

ha merci !!! tu as édité ton message , je mettais arrete a "forum " lol

j essayes immédiatement 😉

 

[deudecos]

Re : Boite de dialogue VB

euh oue, d'temps en temps, il m'arrive de merdouiller un peu avant de repondre... ;-)

 

[Celeborn61]

Re : Boite de dialogue VB

Salut la demoiselle en détresse,

Ton soucis n'est pas trés clair pour moi, je suis dur à la comprenette, ( chut, il ne faut jamais dire à une dame qu'elle s'est mal fait comprendre, 😉 ).

Et l'utilisation multiple des "Select" le rend difficile à suivre.

Il semble que tu demande une cellule, tu insert une ligne ou tu copie la ligne du dessus, mais je ne vois pas ou tu met la valeur demandée dans la cellule.

Pourquoi ne pas tout simplifier en réalisant une boite de saisie qui demande le champ et la valeur en même temps ?

Apportes nous ces quelques éclaircissement belle demoiselle.

 

[Cremouenette]

Re : Boite de dialogue VB

Génial!!!!!!!!!!!

CA MARCHE tout comme je veux!!!!!!!!!

MERCI

 

[Cremouenette]

Re : Boite de dialogue VB

Salut damoiselle en detresse, le forum,

En premier :
Rep = InputBox("Quel est l'emplacement a selectionner ?")
Range(Rep).select
et apres ton code

Et en deuxieme :
Rep2 = InputBox("Valeur de la cellule ?")
ActiveCell = Rep2

Bonne journee

Olivier

Salut la demoiselle en détresse,

Ton soucis n'est pas trés clair pour moi, je suis dur à la comprenette, ( chut, il ne faut jamais dire à une dame qu'elle s'est mal fait comprendre, 😉 ).

Et l'utilisation multiple des "Select" le rend difficile à suivre.

Il semble que tu demande une cellule, tu insert une ligne ou tu copie la ligne du dessus, mais je ne vois pas ou tu met la valeur demandée dans la cellule.

Pourquoi ne pas tout simplifier en réalisant une boite de saisie qui demande le champ et la valeur en même temps ?

Apportes nous ces quelques éclaircissement belle demoiselle.

merci d'avoir pris le temsp d'essayer de me comprendre 😉

Je suis pas experte donc je fais souvent mes macros avec des bouts de scotch, ca fait hurler les devellopeurs mais ca marche, pi les utilisateurs finaux sont encore plus nul que moi, donc ils pensent que je suis méga bonne (au royaume des aveugles les borgnes sont rois :d)


La solution de Celeborn61 a été impecable