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

macro "boucle" qui stoppe sans raison (enfin sans que je connaisse la raison)

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

Profane

XLDnaute Occasionnel
Bonjour a tous,

le but de ma macro est de controler dans une colonne que des cellules ne sont pas vides
si tel est le cas : remplacer "" par "NR"
le soucis c'est que la macro stop et qu'il fdaut que je la relance plusieurs fois pour qu'elle traite toute la colonne

voici le code
Code: 
Sub VerificationChampsNonVide()
' Déclaration des variables
Dim C As Range

'Impact sur feuille
With Sheets("Import_Hosting")
    For Each C In Range("SourcesOfTicket")
    If C = "" Then
    C = "NR" ' NR pour non renseigné
        End If
        Next C

End With
End Sub

pour précision le champ "SourceOfTickets" = =DECALER(Import_Hosting!$S$2;;;NBVAL(Import_Hosting!$S:$S)-1)

merci d'avance pour votre aide
 
Trier par date Trier par votes
Re : macro "boucle" qui stoppe sans raison (enfin sans que je connaisse la raison)

Bonjour

je pense que le piège vient que si tu as des cellules vides, le nbval de ton décaler ne reflètera pas la dernière cellule écrite de la colonne

Derligne=range("S65536").end(xlup).row
te donne la dernière ligne

et après tu boucles de 2 à derligne ou tu utilises decaler DECALER(Import_Hosting!$S$2;;;derligne-2)

a ajuster à 1 près sans doute (le pb éternel des poteaux et des intervalles
 
Vote positif 0 Vote négatif
Re : macro "boucle" qui stoppe sans raison (enfin sans que je connaisse la raison)

Bonjour,

essaye peut être ainsi :
Code: 
On Error Resume Next
Range("SourcesOfTicket").SpecialCells(xlCellTypeBlanks).Value = "NR"
On Error GoTo 0

bon après midi
@+

Edition : bonjour Eric🙂
 
Vote positif 0 Vote négatif
Re : macro "boucle" qui stoppe sans raison (enfin sans que je connaisse la raison)

Bonjour Eric,
le probleme est que la colonne peut ne pas etre en S
en fait je fais au préalable une macro qui lit les en tetes
et la fonction decaler et faite par se biais, je ne peux donc pas coder en "dure" Derligne=range("S65536").end(xlup).row
voir le code joint
Code: 
Sub Nommer_plageImp2()
' l'idée est de lire les en tete de colonne, de les nommer, et de les référencer dans le gestionnaire de noms,
' afin d'être sur que les formules "pointent" au bon endroit
Sheets("Import_Hosting").Activate
Dim i As Integer
With Sheets("Import_Hosting")
For i = 1 To 26

    If .Cells(1, i) = "Service Type*" Then
    .Cells(1, i) = "Category"
    ActiveWorkbook.Names.Add Name:="Categories", RefersToR1C1:="=OFFSET(R2C" & i & ",,,COUNTA(C" & i & ")-1)"
    ElseIf .Cells(1, i) = "Operational Categorization Tier 1" Then
    ActiveWorkbook.Names.Add Name:="OpsCatTier1", RefersToR1C1:="=OFFSET(R2C" & i & ",,,COUNTA(C" & i & ")-1)"
        Columns(i).NumberFormat = "General"
    ElseIf .Cells(1, i) = "Operational Categorization Tier 2" Then
    ActiveWorkbook.Names.Add Name:="OpsCatTier2", RefersToR1C1:="=OFFSET(R2C" & i & ",,,COUNTA(C" & i & ")-1)"
        Columns(i).NumberFormat = "General"
    ElseIf .Cells(1, i) = "Product Categorization Tier 1" Then
    ActiveWorkbook.Names.Add Name:="ProdCatTier1", RefersToR1C1:="=OFFSET(R2C" & i & ",,,COUNTA(C" & i & ")-1)"
        Columns(i).NumberFormat = "General"
    ElseIf .Cells(1, i) = "Product Categorization Tier 2" Then
    ActiveWorkbook.Names.Add Name:="ProdCatTier2", RefersToR1C1:="=OFFSET(R2C" & i & ",,,COUNTA(C" & i & ")-1)"
        Columns(i).NumberFormat = "General"
    ElseIf .Cells(1, i) = "Status*" Then
    ActiveWorkbook.Names.Add Name:="StatusOfTicket", RefersToR1C1:="=OFFSET(R2C" & i & ",,,COUNTA(C" & i & ")-1)"
        Columns(i).NumberFormat = "General"
    ElseIf .Cells(1, i) = "Reported Source" Then
    ActiveWorkbook.Names.Add Name:="SourcesOfTicket", RefersToR1C1:="=OFFSET(R2C" & i & ",,,COUNTA(C" & i & ")-1)"
        Columns(i).NumberFormat = "General"
    
    
Exit For
End If
Next i
End With
End Sub
@+
 
Vote positif 0 Vote négatif
Re : macro "boucle" qui stoppe sans raison (enfin sans que je connaisse la raison)

re

tu peux toujours jouer avec l'offset que tu peux déterminer quand tu nommes, en fonction de la catégorie cherchée

range("A65536).offset(0,monoffset).end(....

modif : j'ai répondu un peu vite :

for i=1 to 26
derligne = Cells(65536, i).End(xlUp).Row

if.......


et dans tes decaler tu te sers de derligne
 
Dernière édition:
Vote positif 0 Vote négatif
Re : macro "boucle" qui stoppe sans raison (enfin sans que je connaisse la raison)

Bonjour Pierrot
pas de différence, dommage 🙂
Eric, j avoue ne pas savoir comment récupérer l'offset....
@+
 
Vote positif 0 Vote négatif
Re : macro "boucle" qui stoppe sans raison (enfin sans que je connaisse la raison)

Re,

peut être mettre sur le forum un tout petit fichier représentant unquement le problème posé.... plus facile pour t'aider....
 
Vote positif 0 Vote négatif
Re : macro "boucle" qui stoppe sans raison (enfin sans que je connaisse la raison)

Bonjour à tous


Au lieu de
Code: 
=DECALER(Import_Hosting!$S$2;;;NBVAL(Import_Hosting!$S:$S)-1)
avez-vous essayé ce qui quit ?
Code: 
=DECALER(Import_Hosting!$S$2;;;MAX((Import_Hosting!$S:$S<>"")*LIGNE($S:$S))-1)



ROGER2327
#5816

Vendredi 6 Palotin 139 (Sainte Oneille, gourgandine - fête Suprême Quarte)
6 Floréal An CCXX, 5,3995h - ancolie
2012-W17-3T12:57:32Z
 
Vote positif 0 Vote négatif
Re : macro "boucle" qui stoppe sans raison (enfin sans que je connaisse la raison)

Re

n'ayant pas le fichier je n'ai pas testé mais essaie

Code: 
Sub Nommer_plageImp2()
 ' l'idée est de lire les en tete de colonne, de les nommer, et de les référencer dans le gestionnaire de noms,
 ' afin d'être sur que les formules "pointent" au bon endroit
 Sheets("Import_Hosting").Activate
 Dim i As Integer
 With Sheets("Import_Hosting")
 For i = 1 To 26
    '
    derligne = .Cells(65536, i).End(xlUp).Row)
    '
    If .Cells(1, i) = "Service Type*" Then
     .Cells(1, i) = "Category"
     ActiveWorkbook.Names.Add Name:="Categories", RefersToR1C1:="=OFFSET(R2C" & i & ",,,derligne-2)"
     ElseIf .Cells(1, i) = "Operational Categorization Tier 1" Then
     ActiveWorkbook.Names.Add Name:="OpsCatTier1", RefersToR1C1:="=OFFSET(R2C" & i & ",,,derligne-2)"
         Columns(i).NumberFormat = "General"
     ElseIf .Cells(1, i) = "Operational Categorization Tier 2"
.....
 
Vote positif 0 Vote négatif
Re : macro "boucle" qui stoppe sans raison (enfin sans que je connaisse la raison)

Pierrot93 à dit:
Re,

peut être mettre sur le forum un tout petit fichier représentant unquement le problème posé.... plus facile pour t'aider....
Cliquez pour agrandir...

Voilà une idée qu'elle est bonne !



ROGER2327
#5817

Vendredi 6 Palotin 139 (Sainte Oneille, gourgandine - fête Suprême Quarte)
6 Floréal An CCXX, 5,4180h - ancolie
2012-W17-3T13:00:11Z
 
Vote positif 0 Vote négatif
Re : macro "boucle" qui stoppe sans raison (enfin sans que je connaisse la raison)

merci a tous pour vos réponses
je regarde ça et je vous dis
ps: effectivement un bout de code serait sympa ;-), si ca bug , je le fais
 
Vote positif 0 Vote négatif
Re : macro "boucle" qui stoppe sans raison (enfin sans que je connaisse la raison)

j'ai répondu trop vite à Pierrot
ca fonctionne juste en modifiant le on error goto 0 -> sortie
Code: 
Sub VerificationChampsNonVide()
' Déclaration des variables
Dim C As Range

'Impact sur feuille
With Sheets("Import_Hosting")
     For Each cell In Range("SourcesOfTicket")
    Range("SourcesOfTicket").SpecialCells(xlCellTypeBlanks).Value = "NR"
   On Error GoTo sortie
    Next
sortie:
    End

End With
End Sub
je vais regarder quand meme les optimisations proposer par Eric et Roger
bonne journée a tous et merci pour votre temps
 
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

O
  • Question Question
XL 2019 Je veux afficher mes données dans ma Listbox1 avec l'entete de ma Base donnée et fait la recherche sans que cela derange l'entete.
Réponses
6
Affichages
853
ChTi160
C
  • Résolu(e)
Microsoft 365 Amélioration Macro.
Réponses
7
Affichages
626
crazy
C
L
  • Question Question
Autres Copier des données d’un fichier sans l’ouvrir juste en le sélectionnant via un UserForm
Réponses
6
Affichages
785
Liner77
L
J
  • Résolu(e)
XL 2013 Macro et script vba : macro s'arrête dès la première condition trouvée
Réponses
11
Affichages
1 K
Janu44
J
L
  • Résolu(e)
XL 2019 VBA - Autofilter - Prob: Copie toute la plage sans prendre en compte le filtre
Réponses
8
Affichages
828
Lolexcel
L
XLS : Créer une animation fluide sans Crash (ou presque) !
Réponses
7
Affichages
919
Lu76Fer
A
  • Question Question
Microsoft 365 boucle macro pour importer des données
2
Réponses
16
Affichages
2 K
Arnaud Legay
A
F
  • Question Question
XL 2016 Blocage macro sur instruction SET
Réponses
6
Affichages
627
job75
L
  • Question Question
XL 2016 Macro et suppressions de lignes
Réponses
9
Affichages
879
fanfan38
F
  • Question Question
XL 2016 Arrêt macro intempestif
Réponses
3
Affichages
1 K
flyingmuad
F
S
  • Question Question
XL 2010 VBA - macro avec 1 boucle qui alterne 1 action à conditions et 1 action sans conditions
2 3 4
Réponses
58
Affichages
8 K
Scorp0211
S
Q
  • Résolu(e)
XL 2019 Modification macro
Réponses
8
Affichages
766
Quicksland
Q
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
C
  • Question Question
Microsoft 365 Combiner une condition avec une boucle dans VBA
Réponses
2
Affichages
1 K
CHL1234
C
P
  • Résolu(e)
XL 2019 supprimer la couleur d'une cellule dès que je clique dans une autre cellule
Réponses
2
Affichages
806
pat66
P
G
  • Question Question
XL 2016 Ecrire une boucle pour afficher ensemble dans un userform, toutes ses textbox complétées par la boucle! Voir mon code et photos feuilles joints !
Réponses
8
Affichages
978
vgendron
V
  • Résolu(e)
Microsoft 365 Afficher filtres appliqués par macro dans la cellule B3 directement et non par F5 puis Réinitialiser
Réponses
12
Affichages
1 K
VirginieG
V
K
  • Question Question
XL 2019 Extraction données avec filtre d'un fichier .txt sur Excel & créer nouveau fichier .txt
Réponses
1
Affichages
3 K
Hasco
C
  • Résolu(e)
Microsoft 365 Formule qui ralenti ma macro
2
Réponses
15
Affichages
3 K
mapomme
S
  • Résolu(e)
XL 2010 Reprise d'une macro sans raison apparente
Réponses
10
Affichages
787
Robert
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…