Bonjour,
 
J'essai de faire une petite macro mais je elle plante sans que je ne sois capable de trouver l'erreur.
 
 
    Public intDL As Integer
    Public intDC As Integer
    Public intFL As Integer
    Public intFC As Integer
     
  Sub tridonne()
'
' tridonne Macro
'
' Touche de raccourci du clavier: Ctrl+r
 
    intDL = 1
    intDC = 1
    intFL = 1
    intFC = 2
     
    Do Until Cells(intFL, 2).Value = ""
    intFL = intFL + 1
    Loop
    intFL = intFL - 1
         
    Range(Cells(intDL + 1, intDC), Cells(intFL, intFC)).Select
    Selection.Cut Destination:=Range(Cells(intDL, intDC + 1), Cells(intFL - 1, intFC + 1))
    Range(Cells(intDL, intDC)).Select
    Selection.AutoFill Destination:=Range(Cells(intDL, intDC), Cells(intFL - 1, intFC - 1))
    'Range("A1:A11" ).Select
    Rows(intFL).Select
    Selection.Delete Shift:=xlUp
End Sub
 
Le débogueur me renvoi toujours à la première ligne où j'utilise la commande Range.
 
Merci d'avance (j'ai rien trouvé sur internet qui réponde concrètement à ma question)

Bonjour,
mets ce bout de code juste aprés le intFL = intFL - 1 :

ensuite, reviens nous mettre les valeurs de tes 4 variables.
 
A mon avis, tu as une des 4 valeurs à zéro (voire moins).

Ha bien vue je n'ai même pas eu besoin d'utiliser ton code effectivement il y'a une valeur à -1 ...
 
Je pensais pas à un problème de valeur. merci beaucoup