Discussion :

[Tof XXX]

Bonjour

Voilà mon problème :

Sur la feuille "suivi", de la cellule C24 à la Z2000, j'ai un tableau de suivi de dossiers
Les dossiers sont ajoutés les uns après les autres ligne 24, 25, 26...

J'ai une feuille "variables" sur laquelle je remplis les données, et je cherche une macro qui prenne les données et les incrémente dans mon tableau
1er dossier ligne 24
2ème dossier ligne 25
etc

J'ai ici un début de piste (vous pouvez faire autrement) où je définis la 1ère ligne vide en partant de la fin du tableau (les noms entre crochets ont été définis aux emplacements des données sur la feuille "variables") :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub integrer()
 
Sheets("Suivi").Select
Range("C2000").End(xlUp)(2).Value = [Nom].Value   '1er nom en C24
Sélectionner la ligne entière
"ligne24, colonneD".Value = [Dette].Value
"ligne24, colonneE".Value = [Montant].Value
"ligne24, colonneF".Value = [Colloc].Value
Sheets("variables").Select
 
End Sub

Je crois savoir qu'il faut passer par des offset

Merci d'avance aux pros

[Abed_H]

Bonjour

essaie ce code il devrait faire ce que tu demande

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub Integrer()
Dim cell As Range
Dim i As Integer
i = 12
For Each cell In Sheets("Suivi").Range("C24:C2000")
    With Sheets("Variable")
         .Cells(i, 1) = "Dossier " & i
         .Cells(i, 2).Resize(1, 25).Value = cell.Resize(1, 25).Value
    i = i + 1
  End With
Next
End Sub

Abed_H

[Tof XXX]

Merci Abed_H, mais j'ai déjà trouvé ma solution aujourd'hui à force de chercher

J'ai utilisé les offset

[Singular]

Tu doit quand-même indiquer la discussion comme étant résolue en cliquant le bouton dans le bas de la page de discussion, même si tu as trouvé ta réponse toi-même.