Rows dans macro

Le
Serge Nazarian
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,

--
Serge Nazarian
Pour m'écrire directement : serge point nazarian arobas sfr point fr
  • Partager ce contenu :
Vos réponses
Trier par : date / pertinence
Geo
Le #26561004
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Í .
MichD
Le #26561007
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
Le #26561011
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
Poster une réponse
Anonyme