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

Macro : Aide sur cette ligne qui bloque

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion roidurif
  • 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
R

roidurif

XLDnaute Occasionnel
Bonjour,

Je bloque sur cette macro, car je souhaite obtenir en resultat les numéros de cellues des champs obligatoire non renseigné" en colonne M de la feuil2.
J'ai donc indiqué
Code: 
 Range("M65586").End(xlUp)
, mais la macro se bloque au niveau de cette ligne

Code: 
Sheets("Feuil2").Range("M65586").End(xlUp).Offset(1).Value = .Range(Colonne(i) & NumClient.Row).Address(REF_ABS, REF_ABS)

Voici le code entier :

Code: 
Sheets("Feuil2").Range("M12:M65536").ClearContents
Dim Colonne(), NumClient As Range, i As Long
Colonne = Array("C", "D", "E", "AB", "AC", "BA", "AH", "AI", "AW", "AX", "BB", "BC") 'Colonnes obligatoires
With Sheets("catalogue")
For Each NumClient In .Range("A2", .[A65536].End(xlUp)).SpecialCells(xlCellTypeConstants)
For i = 0 To 11
If i = 0 And CStr(.Range("C" & NumClient.Row)) = CStr(.Range("C" & NumClient.Row - 1)) And .Range("C" & NumClient.Row) <> "" Then i = 7
If .Range(Colonne(i) & NumClient.Row) = "" Then _
Sheets("Feuil2").Range("M65586").End(xlUp).Offset(1).Value = .Range(Colonne(i) & NumClient.Row).Address(REF_ABS, REF_ABS)
If .Range("B" & NumClient.Row) = "S" Then Exit For 
Next
End With
End Sub

je sais pas comment faire

merci de votre aide
 
Dernière édition:
Trier par date Trier par votes
Re : Macro : Aide sur cette ligne qui bloque

Bonjour roidurif, bonjour à toutes et à tous 🙂

Je n'ai pas décortiqué ton code, mais j'ai une erreur du type For sans Next :

Code: 
[COLOR="Blue"]Sub[/COLOR] toto()
[COLOR="Green"]'[/COLOR]
[COLOR="blue"]Dim[/COLOR] Colonne(), NumClient [COLOR="blue"]As[/COLOR] Range, i [COLOR="blue"]As Long[/COLOR]
[COLOR="green"]'[/COLOR]
  Sheets("Feuil2").Range("M12:M65536").ClearContents
  
  [COLOR="green"]'Colonnes obligatoires[/COLOR]
  Colonne = Array("C", "D", "E", "AB", "AC", "BA", "AH", "AI", "AW", "AX", "BB", "BC")
  
  [COLOR="blue"]With[/COLOR] Sheets("catalogue")
    [COLOR="blue"]For Each[/COLOR] NumClient In .Range("A2", .[A65536].End(xlUp)).SpecialCells(xlCellTypeConstants)
      [COLOR="blue"]For[/COLOR] i = 0 To 11
        [COLOR="blue"]If[/COLOR] i = 0 And CStr(.Range("C" & NumClient.Row)) = CStr(.Range("C" & NumClient.Row - 1)) _
            [COLOR="blue"]And[/COLOR] .Range("C" & NumClient.Row) <> "" [COLOR="blue"]Then[/COLOR]
          i = 7
        [COLOR="blue"]End If[/COLOR]
        [COLOR="blue"]If[/COLOR] .Range(Colonne(i) & NumClient.Row) = "" [COLOR="blue"]Then[/COLOR]
          Sheets("Feuil2").Range("M65586").End(xlUp).Offset(1).Value = _
              .Range(Colonne(i) & NumClient.Row).Address(REF_ABS, REF_ABS)
        [COLOR="blue"]End If[/COLOR]
        [COLOR="blue"]If[/COLOR] .Range("B" & NumClient.Row) = "S" [COLOR="blue"]Then[/COLOR]
          [COLOR="blue"]Exit For[/COLOR]
        [COLOR="blue"]End If[/COLOR]
      [B][I][COLOR="blue"]Next[/COLOR] i[/I][/B]
    [COLOR="blue"]Next[/COLOR] [COLOR="green"]'For Each NumClient In .Range("A2", .[A65536].End(xlUp)). _
         SpecialCells(xlCellTypeConstants)[/COLOR]
  [COLOR="blue"]End With[/COLOR]
[COLOR="blue"]End Sub[/COLOR]

Je n'ai pas regardé plus lolin. Tiens-nous au courant 🙂

@+
 
Vote positif 0 Vote négatif
Re : Macro : Aide sur cette ligne qui bloque

re,

J'ai toujours ce blocage sur cette ligne,
Code: 
Sheets("Feuil2").Range("M65586").End(xlUp).Offset(1).Value = .Range(Colonne(i) & NumClient.Row).Address(REF_ABS, REF_ABS)

Merci de l'aide
 
Vote positif 0 Vote négatif
Re : Macro : Aide sur cette ligne qui bloque

Re,

roidurif à dit:
re,

J'ai toujours ce blocage sur cette ligne,
Code: 
Sheets("Feuil2").Range("M65586").End(xlUp).Offset(1).Value = .Range(Colonne(i) & NumClient.Row).Address(REF_ABS, REF_ABS)
Cliquez pour agrandir...

Et si tu essayais :

Code: 
Sheets("Feuil2").Range("M65586").End(xlUp).Offset(1).Value = .Range(Colonne(i) & NumClient.Row)

tout simplement.

@+
 
Vote positif 0 Vote négatif
Re : Macro : Aide sur cette ligne qui bloque

Re,



Non ca ne fonctionne pas, toujours pareil avec ta proposition
Code: 
Sheets("Feuil2").Range("M65586").End(xlUp).Offset(1).Value = .Range(Colonne(i) & NumClient.Row)

Cordialement
 
Vote positif 0 Vote négatif
Re : Macro : Aide sur cette ligne qui bloque

Je joins mon fichier c'est peut etre mieux,

la macro est dans le module 2, il y'en a 2 qui pose le meme probleme.

Cordialement
 
Dernière édition:
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

A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
426
sylvanu
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
464
un internaute
U
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
336
patricktoulon
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
543
un internaute
U
U
  • Question Question
Autres Quelques fois ça bug feuilles cachées
Réponses
2
Affichages
151
cathodique
C
  • Question Question
Microsoft 365 Supprimer ligne selon contenu cellule (résolu)
Réponses
7
Affichages
224
job75
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
674
TooFatBoy
  • Résolu(e)
Microsoft 365 Virgules dans ListView
Réponses
5
Affichages
311
Electron24
J
  • Question Question
Microsoft 365 Userform comboboxes indexés
Réponses
8
Affichages
255
jp26200
J
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
904
tnion
T
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
528
kiki29
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
580
Piment
P
F
  • Résolu(e)
Autres Insérer une ligne
2 3
Réponses
36
Affichages
3 K
francescofrancesco
F
F
  • Question Question
Microsoft 365 aide VBA excel
Réponses
4
Affichages
657
Oneida
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
912
job75
L
  • Question Question
Microsoft 365 Erreur automation 440 sur code VBA
Réponses
1
Affichages
292
job75
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
26
Affichages
895
Webperegrino
W
B
  • Question Question
Microsoft 365 Macro pour création fichier csv
Réponses
8
Affichages
634
job75
  • Question Question
Microsoft 365 Méthode Evaluate pour se dispenser d'une boucle imbriquée
Réponses
14
Affichages
649
patricktoulon
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
975
CortoXls
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…