Discussion :

[fks26]

Bonjour ,

Je débutes sur Vb et je suis en train de créer un tableau excel qui seras mis a jour par un utilisateur via des macros boutons !

Je bloques concernant la manipulation d'une cellule que je voudrait incrémenter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
date_d_c = InputBox("Indiquer Date début congés , Format jj/mm/aaaa")
date_f_c = InputBox("Indiquer date fin congés , Format jj/mm/aaaa")
ActiveCell.Range("H6").Select
Range("H6").Value = date_d_c      ' cellule H6  date debut congés
Range("G6").Value = date_f_c     ' cellule I6 date fin congés 
 
End If

End Sub

Et ce que je voudrait c'est décaler d'une ligne a chaque fois que l'utilisateur rentre une date evidamment differente ...

En gros je veux une incrementation +1 , je bloques concernant la manipulation du "range" , j'ai tenté de créer une variable toute simple qui serait incrementé et ensuite l'incorporer en parametre dans le "range" mais cela ne fonctionne pas ...

Merci d'avance !

[rvtoulon]

Slt,fks26
voici ton code un peu modifié. En fait tu recherches en H la dernière cellule occupée et tu ajoutes 1. Tu donnes a la variable c, le numéro de la ligne vide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim c As Long
date_d_c = InputBox("Indiquer Date début congés , Format jj/mm/aaaa")
date_f_c = InputBox("Indiquer date fin congés , Format jj/mm/aaaa")
With Sheets("feuil1") 'Adapte le nom de la feuille
'recherche la dernière ligne pleine de la colonne H et va à la ligne vide
'en-dessous
c = .Range("H65000").End(xlUp).Row + 1
.Range("H" & c).Value = date_d_c
.Range("I" & c).Value = date_f_c
End With

A+

[fks26]

Merci RV !

je teste et jte tiens au courant !

[fks26]

nikel ca marche Merci !

Petite question , comment je peux créer un menu pour rassembler mes boutons macros , avec un user form c possible ?!

[rvtoulon]

Slt,
oui il est possible de regrouper tes boutons dans un userform. Voici 1 lien pour en apprendre plus sur les userforms
1) http://silkyroad.developpez.com/VBA/UserForm/

2)et il y a la FAQ excel et les nombreux sujet du forum.

Si tu as besoin d'aide n'hésite pas à poser tes questions dans un nouveau post car je pense que ta question première est résolu (n'oublie pas de mettre résolu) cela permettras à d'autres de t'aider plus facilement.

A+