Problème avec Range (Cells(

Version imprimable

Bonjour,
Je fais mes premiers pas de programmation en VBA (Excel pour Mac 2011 - Version 14.0.0). J’ai acheté le livre pour les nuls. C’est dire si je suis néophyte.
J’ai fait un exercice. C’est une macro qui est censée sélectionner la cellule B6, en copier le contenu et, au moyen d’une boucle, le recopier dans les cellules B10:B16. À la ligne en gras, le programme bloque en affichant le message :

Citation:

« Erreur de compilation : Utilisation incorrecte de la propriété ».

J’ai beau potasser mon bouquin, les forums et les aides en ligne, je n’y comprends rien.
Il y a certainement quelqu’un qui me lira et qui pourra m’aider.
D’autre part, l’application se met en Mode Arrêt suite à ce bug. Je n’ai trouvé d’autre moyen, pour en sortir, que de fermer le classeur, puis de le rouvrir.
Merci de ne pas être trop technique. Je le répète : je suis néophyte.

Voici le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub Macro1() Range("B6").Select Selection.Copy Ligne = 10 For Ligne = 10 To 16 Range (Cells(Ligne, 2)) Selection.Paste Ligne = Ligne + 1 Next ActiveWorkbook.Save Range("I18").Select ActiveWorkbook.Save Range("I18").Select End Sub
Merci. :)

1 pièce(s) jointe(s)

Bonjour, Foromeurs confinés! :lol:
J'ai testé votre code rectifié avec mon Mac excel2011 et ça marche chez moi.
par contre, il est vital pour l'avenir de déclarer les variables. mettez Option Explicit en tête de module, ainsi, vous ne pourrez pas oublier de déclarer vos variables.:weird:
Vous pouvez aussi choisir dans préférences/éditeur, de cocher la case "déclaration de variable obligatoire", ainsi cela deviendra obligatoire dans tous vos nouveaux documents Excel.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Option Explicit Sub Macro1() Dim Ligne as long Range("B6").Select Selection.Copy Ligne = 10 For Ligne = 10 To 16 Cells(Ligne, 2).Select Selection.PasteSpecial xlValue Next ActiveWorkbook.Save Range("I18").Select End Sub
par ailleurs lorsque suite à une erreur, VBA est bloqué, vous cliquez sur le bouton Carré du menu développeur voir ci-dessous:

Pièce jointe 563944

Cordialement 8-)

Re , vous pourriez simplifier le code voir ci-dessous, je vous ai mis des commentaires pour expliquer.

Code:

1
2
3
4
5
6
7
8
Sub Macro2()
Dim Ligne As Long                                                   'Déclaration de la variable Ligne
    For Ligne = 10 To 16                                            'Départ de la boucle de la ligne 10 à la ligne 16
        Cells(Ligne, 2).Value = Range("B6").Value   'Entrée de la valeur de la plage B6 dans les cellules de 10 à 16
    Next                                                             'Retour au départ de la boucle pour une nouvelle valeur.
    ActiveWorkbook.Save                                      'Sauvegarde du classeur actif
    Range("I18").Select                                         'Sélection de la plage I18.
End Sub

Cordialement 8-)

Bonjour le fil,

Deux conseils supplémentaires :
1. Éviter les Select inutiles
2. Préciser la parentalité des Range & Cells

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub Macro1()
Dim Ligne As Long
  With ActiveSheet   'préférer une désignation sans ambigüité Worksheets("Feuil1")
    .Range("B6").Copy
    For Ligne = 10 To 16
      .Cells(Ligne, 2).PasteSpecial xlValue
    Next
    ActiveWorkbook.Save
    .Range("I18").Select
  End With
End Sub

EDIT : Bonjour Transitoire :coucou:,
Avec la parentalité ça donne :

Code:

1
2
3
4
5
6
7
8
9
10
Sub Macro2()
Dim Ligne As Long
  With ActiveSheet   'préférer une designation sans ambigüité Worksheets("Feuil1")
    For Ligne = 10 To 16
        .Cells(Ligne, 2).Value = .Range("B6").Value
    Next
    ActiveWorkbook.Save
    .Range("I18").Select
  End With
End Sub

08/05/2020, 09h31
Menhir
Il y a de nombreuses erreurs dans ton code.

Premièrement, si tu débutes, commence à prendre de bonnes habitudes en évitant les Select/Selection sur les cellules (Cells ou Range).
Je sais que l'enregistreur de macro en met partout mais ce n'est pas un exemple à suivre.
Il est préférable d'utiliser directement la référence dans la méthode ou la propriété.
Par exemple, au lieux d'écrire :
Code:

1 2 Range("B6").Select Selection.Copy
Ecris :

Code:

Range("B6").Copy

Autre bonne habitude à prendre : toujours déclarer et typer ses variable en début de code.
Dans ton cas, la variable Ligne devrait être déclarée ainsi Dim Ligne As Long.
Pour t'obliger à déclarer tes variables, coche "Déclaration de variables obligatoire" dans Outils > Options.
Ca te mettra en début de code l'instruction Option Explicit qui empêche l'exécution si des variables ne sont pas déclarées.

Ton Range (Cells(Ligne, 2)) est une sorte de pléonasme informatique. Tu demandes la cellule de la cellule.
On met Cells à l'intérieur de Range quand on veut désigner une plage. Par exemple Range(Cells(1, 2), Cells(Ligne, 2)).
Mais pour une seule cellule, il suffit d'écrire Cells(Ligne, 2) ou Range("B" & Ligne).

De plus, cette ligne n'est pas une instruction, c'est juste un objet. Elle ne peut donc pas être valide par elle-même.
Je suppose que tu as oublié de la terminer par Select, ce qui a provoqué ton bug.

Ton Ligne = 10 avant le For ne sert à rien.
Le For se charge d'initialiser la variable à la valeur de la borne inférieure à son premier tour.

Le même, il ne faut pas mettre de Ligne = Ligne + 1 en fin de boucle, le Next se charge d'incrémenter la variable.
Tel qu'il est écrit, ton exécution ira de 2 en 2 puisque la variable sera incrémentée 2 fois.
A lire : https://docs.microsoft.com/fr-fr/off...next-statement

Prend aussi toujours l'habitude de rappeler ta variable de boucle dans le Next.
Même si ça n'est pas obligatoire, ça t'évitera de t’emmêler les pinceaux quand tu auras plusieurs boucles imbriquées.

Pour Selection.Paste, voir la remarque sur les Select/Selection.
Sauf que là, c'est plus grave.
Paste ne fait pas partie des méthode de Range.
Alors pourquoi ça ne plante pas ? Parce que ton Selection ne désigne pas ici une cellule mais la feuille de calcul.
Tu vois à quel point Selection peut être ambigu : on ne sait jamais ce qu'il désigne vraiment. D'où mon conseil de ne pas l'utiliser.

Pour faire une copie sur une cellule, on utilise PasteSpecial.
Lire ça : https://msdn.microsoft.com/fr-fr/lib...6(v=office.15)

Inutile de mettre deux fois ActiveWorkbook.Save.

Et le dernier Select ne sert plus à rien puisque, ayant supprimé tous les autres Select dans ton code, la cellule sélectionnée avant l'exécution ne changera pas.

Ton code revu :
Code:

1 2 3 4 5 6 7 8 Sub Macro1() Dim Ligne As Long Range("B6").Copy For Ligne = 10 To 16 Cells(Ligne, 2).PasteSpecial Next Ligne ActiveWorkbook.Save End Sub
Encore plus simple :
Code:

1 2 3 4 5 6 7 Sub Macro1() Dim Ligne As Long For Ligne = 10 To 16 Range("B6").Copy Cells(Ligne, 2) Next Ligne ActiveWorkbook.Save End Sub
ou simplement :
Encore plus simple :
Code:

1 2 3 4 Sub Macro1() Range("B6").Copy Range("B10:B16") ActiveWorkbook.Save End Sub
08/05/2020, 10h26
Paul Detheux

Un grand merci à tous les trois.
Je vais imprimer tous vos conseils pour les appliquer et je vais poursuivre mes essais.
Je vous souhaite une bonne journée.

Ça y est ! Cela fonctionne. Encore merci à tous pour votre amabilité et votre compétence.
Je perfectionne ma macro en posant un filtre.
Je dois filtrer un tableau sur la colonne A (Dates) de la feuille JOURNAL.
Les critères du filtre (date de début et date de fin) sont contenus respectivement dans deux cellules (au format Date, évidemment) : I22 et I24 de la feuille RÉSULTAT.
Je crée deux variables : Date_1 et Date_2 de type date.
J'attribue à chacune de ces variables le contenu de la cellule correspondante (dans la feuille RÉSULTAT).
Et j'établis un filtre dans le tableau de la feuille JOURNAL. (Ligne en gras dans le code.)
Le problème, c'est que le filtre prend, comme critère de date, le nom de la variable et non son contenu.
J'ai essayé en mettant les noms des variables entre guillemets dans la ligne de code mais cela bogue.
Comment faire ?
Merci.

https://www.cjoint.com/c/JECj6kglQCt
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub Filtre() ' Filtre Macro Dim Date_1 As Date Dim Date_2 As Date Sheets("RESULTAT").Select Date_1 = Range("I22").Value Date_2 = Range("I24").Value Sheets("JOURNAL").Select Selection.AutoFilter 'Désactive les filtres courants Range("A9").Select ActiveSheet.Range("$A$7:$F$925").AutoFilter Field:=1, Criteria1:=">=Date_1", Operator:=xlAnd, Criteria2:="<=Date_2" End Sub

Bonjour,

Rappel :

Citation:

Envoyé par Patrice740

1. Éviter les Select inutiles
2. Préciser la parentalité des Range & Cells

Ça donne (sans select) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub Filtre()
Dim Date_1 As Date
Dim Date_2 As Date
  Date_1 = Worksheets("RESULTAT").Range("I22").Value
  Date_2 = Worksheets("RESULTAT").Range("I24").Value
  With Worksheets("JOURNAL")
    ' Supprimer le filtre actuel de la feuille (où qu'il se trouve)
    If Not .AutoFilter Is Nothing Then .AutoFilter.Range.AutoFilter
    ' Remettre le filtre automatique
    .Cells(8, "A").CurrentRegion.AutoFilter Field:=1, Criteria1:=">=" & CDbl(Date_1), Operator:=xlAnd, Criteria2:="<=" & CDbl(Date_2)
  End With
End Sub

Citation:
Envoyé par Patrice740
Bonjour,

Rappel :

Ça donne (sans select) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub Filtre() Dim Date_1 As Date Dim Date_2 As Date Date_1 = Worksheets("RESULTAT").Range("I22").Value Date_2 = Worksheets("RESULTAT").Range("I24").Value With Worksheets("JOURNAL") ' Supprimer le filtre actuel de la feuille (où qu'il se trouve) If Not .AutoFilter Is Nothing Then .AutoFilter.Range.AutoFilter ' Remettre le filtre automatique .Cells(8, "A").CurrentRegion.AutoFilter Field:=1, Criteria1:=">=" & CDbl(Date_1), Operator:=xlAnd, Criteria2:="<=" & CDbl(Date_2) End With End Sub
Super ! Miracle ! Ça marche !
J'ai introduit cette séquence dans ma macro (qui est quand même un peu plus longue) et cela semble fonctionner parfaitement.
Étant novice en BVA, je ne comprends pas très bien tout mais je promets de bouquiner pour progresser.
Merci beaucoup Patrice. Et, à tous, bon week-end qui s'annonce ensoleillé.