Rows dans macro

Bonsoir

A partir du moment o͹ vous écrivez
"Ligne:Ligne_3"
Ligne et Ligne_3 ne seront pas remplacées par leurs valeurs puisque
"Ligne:Ligne_3" est une chaÍ®ne de caractères : L, i, g etc.
Il faudrait écrire
Ligne & ":" & Ligne_3
comme Excel est un peu loin, je ne suis pas certain qu'il faille le "
avant et après, si oui :
chr(34) & Ligne & ":" & Ligne_3 & chr(34)
Je crois me souvenir aussi qu'il y a un espace en début de valeur, cela
donnerait comme résultat :
" 13: 16"
A vérifier, mais l'idée est lÍ .

Le 26/11/20 Í  14:49, Serge Nazarian a écrit :

Bonsoir,

La macro suivante ne fonctionne pas (Incompatibilité de type dans la
ligne Rows("Ligne:Ligne_3").Select)
****************
Sub Macro1()

Dim Ligne As Integer
Dim Ligne_3 As Integer

   Ligne = ActiveCell.Row
   Ligne_3 = Ligne + 3
   Rows("Ligne:Ligne_3").Select

End Sub
****************
Qui peut me dire pourquoi et comment corriger ?
Remarque : l'instruction Rows("13:16").Select fonctionne parfaitement.

Merci pour toute aide.
Cordialement,

Bonjour,

La syntaxe :

'---------------------------
Ligne = ActiveCell.Row
Ligne_3 = Ligne + 3
Rows(Ligne & ":" & Ligne_3).Select
'---------------------------

Écrit de cette manière, ce sont les lignes de la feuille active (celle Í 
l'écran) qui seront sélectionnées. Cette syntaxe est valide dans le
module de la feuille o͹ tu veux sélectionner ces lignes ou dans un
module standard.

Pour sélectionner ces mêmes lignes dans une feuille particulière

With Worksheets("Feuil1")
.Select 'La feuille doit d'abord être sélectionnée
Ligne = ActiveCell.Row
Ligne_3 = Ligne + 3
.Rows(Ligne & ":" & Ligne_3).Select
End With


MichD

Serge Nazarian a écrit le 26/11/2020 :

Bonsoir,

La macro suivante ne fonctionne pas (Incompatibilité de type dans la ligne
Rows("Ligne:Ligne_3").Select)
****************
Sub Macro1()

Dim Ligne As Integer
Dim Ligne_3 As Integer

Ligne = ActiveCell.Row
Ligne_3 = Ligne + 3
Rows("Ligne:Ligne_3").Select

End Sub
****************
Qui peut me dire pourquoi et comment corriger ?
Remarque : l'instruction Rows("13:16").Select fonctionne parfaitement.

Merci pour toute aide.
Cordialement,

Merci pour ces réponses qui fonctionnent.
Cordialement.

--
Serge Nazarian
Pour m'écrire directement : serge point nazarian arobas sfr point fr