Se connecter avec
S'enregistrer | Connectez-vous

Vba

Dernière réponse : dans Programmation

Bonjour à tous,
J'ai un problème avec VBa 6.3 et Excel (MicroSoft Office 2003

mes macros
celle là fonctionne
Sub
Rows("7:15").Select
Selection.Insert Shift:=xlDown
Rows("6:6").Select
Selection.AutoFill Destination:=Rows("6:15"), Type:=xlFillDefault
Rows("6:15").Select
Range("A1").Select
End Sub


Celle-ci ne fonctionne pas et j'ai besoin des paramètres qui sont calculés par ailleurs
Sub
i = 6
j = 7
k = 15

Rows("j:k").Select
Selection.Insert Shift:=xlDown
Rows("i:i").Select
Selection.AutoFill Destination:=Rows("i:k"), Type:=xlFillDefault
Rows("i:k").Select
Range("A1").Select
End Sub

Qui peut m'aider à ré écrire cette dernière?
Merci
Gporte

Autres pages sur : vba

Lassé par la pub ? Créez un compte

Salut, Gporte

Ce sont les guillemets qui posent problème. Essaie avec ceci :
  1. Sub 
    

  2. i = 6 
    

  3. j = 7 
    

  4. k = 15 
    

  5. Rows(j & ":" & k ).Select 
    

  6. Selection.Insert Shift:=xlDown 
    

  7. Rows(i & ":" & i ).Select 
    

  8. Selection.AutoFill Destination:=Rows(i & ":" & k), Type:=xlFillDefault 
    

  9. Rows(i & ":" & k).Select 
    

  10. Range("A1" ).Select 
    

  11. End Sub


Bonne continuation

gillou_gre a dit :
Salut, Gporte

Ce sont les guillemets qui posent problème. Essaie avec ceci :
  1. Sub 
    

  2. i = 6 
    

  3. j = 7 
    

  4. k = 15 
    

  5. Rows(j & ":" & k ).Select 
    

  6. Selection.Insert Shift:=xlDown 
    

  7. Rows(i & ":" & i ).Select 
    

  8. Selection.AutoFill Destination:=Rows(i & ":" & k), Type:=xlFillDefault 
    

  9. Rows(i & ":" & k).Select 
    

  10. Range("A1" ).Select 
    

  11. End Sub


Bonne continuation



Bonjour guillou_gre,
réponse tardive mais satisfaisante.
ça marche!
Merci
gporte
Lassé par la pub ? Créez un compte

Créer un nouveau sujet

Tom's guide dans le monde