Bonjour
J'ai essayé de comprendre ton code car je n'aime pas utiliser betement les choses d'autant que j'aimerais savoir manipuler les données
J'ai bien compris pour changer l'intervalle des lignes qui est maintenant de 30 et le nombre des colonnes qui est maintenant de 13
Je débute en VBA et cet exemple me permettrait de comprendre mieux peut etre voila j'ai commence a commenter en rouge mais après je sui un peu perdue
Car j'aimerais savoir manipuler les données qui arrivent de la base access et pouvoir les envoyer ou je veux par exemple pour ameliorer mon tableu précédent j'aimerais pouvoir utiliser ce code sur chaque feuille mais j'ai fait une feuille par mois donc il faudrait qu'il envoie les donnéres de la base dans la feuille du mois concernée et ensuite continuer sur chaque feuille avec cette macro
Est ce mossible ?
Sub Bouton1_QuandClic()
Déclaration des variables
Dim c As Range
Dim i As Byte
Dim ligne As Integer
Dim lignesuivante As Integer
Ligne ou demarre le tableau
lignesuivante = 3
Selection des eléments de la colonne, premier enregistrement juste qu'au dernier
For Each c In Range('a1:a' & Range('a65536').End(xlUp).Row)
ligne = lignesuivante
Si la ligne est egal la logne précédente
If c.Offset(0, 1) = c.Offset(1, 1) Then
de la collonne 1 a 13
For j = 1 To 13
Sheets('janvier').Cells(ligne, j) = c.Offset(0, j - 1)
Next j
ligne = ligne + 1
lignesuivante = ligne
Else
For j = 1 To 13
Sheets('janvier').Cells(ligne, j) = c.Offset(0, j - 1)
Next j
cpt = cpt + 1
Select Case cpt
Case 1: lignesuivante = 33
Case 2: lignesuivante = 63
Case Else: lignesuivante = 33 + (30 * (cpt - 1))
End Select
End If
Next c
End Sub
Merci
[file name=tableauv3mois.zip size=18195]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/tableauv3mois.zip[/file]