Re : Besoin d'aide pour créer un tableau qui va incrémenter automatiquement des ongle
Misère je suis dans la choucroute !!! je suis désolé de t'avoir embêter le 1er mars ...je viens de découvrir depuis ce matin le VBA et pour moi ça me fait encore plus penser à une secte qu'à autre chose ...lol...j'ai télécharger un doc pour me former en espérant que ce soit a good one ...(
[PDF] Cours Excel VBA cours et formation gratuit)
Sur ce que tu me dis..je pense comprendre....mais ça ne marche pas ..selon ce que tu me dis :
si mes données commence en ligne 10 au lieu de ligne 3 voici comment je modifie la macro RAZ :
1. Sub RAZ()
Dim i As Byte
For i = 1 To 27
Sheets(CStr(i)).Rows("10:" & Rows.Count).ClearContents
Next
End Sub
1. Sub Remplir()
Dim i As Byte, dl&, p As Range
With Sheets("Matrice principale")
dl = .Cells(Rows.Count, "B").End(3).Row
On Error Resume Next
Set p = .Range("A10:AB" & dl).SpecialCells(xlCellTypeConstants, 5)
For Each c In p
If c = 1 Then
.Cells(c.Row, "AD").Resize(, 3).Copy Sheets(CStr(.Cells(2, c.Column))).Cells(Rows.Count, "B").End(3).Offset(1, 0)
End If
Next
End With
End Sub
En mettant ces modifications ça ne marche pas ....rien ne s'écrit dans les onglets....
En plus j'ai un autre souci c'est qu'avec cette macro...à chaque fois que je rentre une nouvelle ligne de donnée, si j'exécute une nouvelle fois la macro remplir....la fonction ressaisit une seconde fois les lignes qui avaient déjà été affecté dans les onglets...bref je me retrouve avec un trucs énorme sachant que je vais ajouter progressivement qq chose comme 1000 lignes voir plus ....aie aie caramba !!!!
Quand aux lignes de programmation :
Sub MacroIndicePourMettreSurLaPiste()
MsgBox Cells(1, "AD").Resize(, 4).Address
MsgBox Cells(1, "AD").Resize(, 5).Address
End Sub
je ne sais tout simplement pas ou les mettre dans ta macro remplir ???....
Je sais je pédale grave dans la choucroute..mais pense jusque que je ne ne connais ni la logique de VBA ni les fonctions Resize Msgbox etc....
misèreeeeee