Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA : Range qui bug

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Tikale
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

Tikale

XLDnaute Junior
Bonsoir à tous,

j'ai une macro qui bug, je ne vois pas du tout pourquoi.

Mon "Selection.AutoFill Destination:=Range("A2:A" & nblignes & ""), Type:=xlFillDefault" fonctionne bien quand je fait fonctionner la macro ligne par ligne, mais mon Selection.AutoFill Destination:=Range("A2:AI" & nblignes & ""), Type:=xlFillDefault ne fonctionne pas.

Pourtant, quand je remplace Range("A2:AI" & nblignes & "") par Range("A2:AI387"), cela fonctionne parfaitement (il y a 387 lignes dans mon fichier initial).

Quelqu'un sait d'où cela peut venir svp ? J'imagine que c'est une bétise au niveau de la syntaxe mais j'ai essayé pas mal de choses, rien ne marche.

Par avance, merci !

Le code de la macro :

Code: 
Sub testage()
'
Dim MaxAuthorized As Integer
Dim ReplaceValue As Integer
Dim k As Integer
Dim nblignes As Integer
Dim nbcolones As Integer

ReplaceValue = -43
MaxAuthorized = 6
nbcolones = Range("A1", Range("A1").End(xlToRight)).Columns.Count
nblignes = Range("A1", Range("A1").End(xlDown)).Rows.Count

Sheets.Add After:=Sheets(Sheets.Count)
Range("A2").Select
ActiveCell.FormulaR1C1 = _
        "=IF(ISNUMBER('31407-A01'!RC[0]),'31407-A01'!RC[0]," & ReplaceValue & ")"
Selection.AutoFill Destination:=Range("A2:A" & nblignes & ""), Type:=xlFillDefault
Range("A2:A387").Select
Selection.AutoFill Destination:=Range("A2:AI" & nblignes & ""), Type:=xlFillDefault
Range("A1").Select
ActiveCell.FormulaR1C1 = "='31407-A01'!RC[0]"
Selection.AutoFill Destination:=Range("A1:AH1"), Type:=xlFillDefault
Range("A1").End(xlToRight).Offset(1, 1).Select
ActiveCell.FormulaR1C1 = "=COUNTIF(RC[-33]:RC[-1]," & ReplaceValue & ")"
Selection.AutoFill Destination:=Range("AI2:AI" & nblignes & ""), Type:=xlFillDefault
'
End Sub
 
Trier par date Trier par votes
Re : VBA : Range qui bug

Merci pour la réponse Gelinotte.

Malheureusement, je viens d'essayer avec :

Code: 
 Selection.AutoFill Destination:=Range("A2:A" & nblignes), Type:=xlFillDefault
Range("A2:A387").Select
Selection.AutoFill Destination:=Range("A2:AI" & nblignes), Type:=xlFillDefault

La première ligne passe, mais la deuxième avec le AI ne passe pas 🙁

D'ailleurs ce AI je vais devoir le changer par la suite car une fois le problème des lignes réglé, je vais m'occuper des colonnes et AI ne sera plus fixé ce sera aussi une variable.
 
Vote positif 0 Vote négatif
Re : VBA : Range qui bug

Bonsoir.
Il n'est pas nécessaire d'utiliser AutoFill en VBA: Vous pouvez affecter en une fois une même formule sur toute une plage rectangulaire.
VB: 
Range("A2:AI" & NbLignes).FormulaR1C1 = _
        "=IF(ISNUMBER('31407-A01'!RC),'31407-A01'!RC," & ReplaceValue & ")"
Cordialement.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : VBA : Range qui bug

Merci beaucoup, cela fonctionne parfaitement.
Toutefois, je trouve bizarre que Range("A2:AI" & NbLignes) fonctionne avec .FormulaR1C1 mais pas dans mon Selection.AutoFill.


J'ai essayé d'intégrer désormais les colonnes variables dans mon Range, mais là c'est une belle galère car je dépasse les colonnes de A à Z. J'ai tenté quelque chose comme ça :

Code: 
 n = Int(nbcolones / 26)
Range("A2:" & n * Chr(65) & Chr(nbcolones) & nblignes).FormulaR1C1 = _
        "=IF(ISNUMBER('31407-A01'!RC),'31407-A01'!RC," & ReplaceValue & ")"

L'idée étant que n regarde le nombre de fois que que le nb de colonne dépasse l'alphabet, pour ensuite mettre dans mon range Chr(65) n fois et un Chr(nbcolones).

Mais cela ne fonctionne pas. J'ai essayé sans le n , ça ne marche pas non plus. Une idée d'où ça pourrait venir ? Ou s'il existe ici aussi un moyen plus propre pour gérer les colonnes ?

Par avance, merci
 
Vote positif 0 Vote négatif
Re : VBA : Range qui bug

Bonjour.
Oui. Si le contexte s'y prête il vaut mieux:
CelluleUniqueDeDépart.Resize(NbrLignes, NbrColonnes).Value = etc.
Ne surtout pas s'amuser à essayer de fabriquer des entêtes de colonnes.
À +
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
240
xavieralvaro
X
K
  • Question Question
Microsoft 365 vba :Vlookup + incrémentation d'une plage de donnée
Réponses
1
Affichages
322
vgendron
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
503
tnion
T
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
339
VBA_dev_Anne_Marie
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
347
patricktoulon
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
2 K
AtTheOne
  • Question Question
XL 2021 Code manufacturier et fabricant (Ram) suite projet en cours ( à tester s'il vous plait )
2 3
Réponses
42
Affichages
1 K
TooFatBoy
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
156
Pierreavecunp
P
P
  • Question Question
XL 2019 Changer nom d'export en VBA
Réponses
3
Affichages
672
job75
K
  • Résolu(e)
Microsoft 365 Ouvrir un autre classeur excel (VBA) pour utiliser les données de celui dans le classeur actif
Réponses
5
Affichages
1 K
Dranreb
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
415
oguruma
D
  • Question Question
Microsoft 365 Optimisation boucle
Réponses
2
Affichages
737
Wayki
N
  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
817
TooFatBoy
F
  • Résolu(e)
XL 2021 Créer Macro permettant d'indexer des nouveaux clients ? [Résolu]
4 5 6
Réponses
82
Affichages
3 K
fanou06
F
A
  • Résolu(e)
XL 2016 Autofill Destination sur colonne adjacente
Réponses
3
Affichages
532
Aldonanou
A
B
  • Résolu(e)
XL 2016 macro avec boucle
2
Réponses
16
Affichages
2 K
benbella1991
B
L
  • Résolu(e)
Microsoft 365 Pb de valeur de variable entre Sub
Réponses
5
Affichages
600
loreak
L
J
  • Question Question
Microsoft 365 Formules
Réponses
2
Affichages
693
jper
J
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
M
  • Résolu(e)
XL 2016 Filtre auto VBA
Réponses
3
Affichages
893
MickaeL_D
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…