Incrementer cellule vb

Version imprimable

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:

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 !

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:

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+

21/01/2010, 17h23
fks26

Merci RV !

je teste et jte tiens au courant !
21/01/2010, 22h01
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 ?!
22/01/2010, 08h13
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+