Bonjour à toutes et à tous,
J'ai actuellement un petit problème sur un programme Excel qui fonctionne avec des userform.
En effet, après une petite modification visant à supprimer des valeurs d'une liste nommée dynamique, j'ai obtenu une erreur 1004 : 'Erreur définie par l'application ou par l'objet' seulement sur les Excel Français.
Sur tous les Excel anglais que j'ai essayé, il n'y a pas de problème, tout se déroule bien.
Le programme bugue à l'instruction suivante : "For Each iV In ThisWorkbook.Names("l_certif_nbr").RefersToRange"
Avez-vous une idée pour m'éviter de me faire incendier en changeant la langue de tous les offices des utilisateurs ? ^^
Merci d'avance.
PS : J'ai regardé un peu le tour des messages déjà postés et y'a celui-ci (https://www.excel-downloads.com/threads/formule-avec-erreur-1004.46034/) qui m'a fait penser au problème de transposition anglais-Français, mais je vois pas réellement ce qui lui déplais...
  
	
	
	
	
	
		
	
		
			
		
		
	
				
			J'ai actuellement un petit problème sur un programme Excel qui fonctionne avec des userform.
En effet, après une petite modification visant à supprimer des valeurs d'une liste nommée dynamique, j'ai obtenu une erreur 1004 : 'Erreur définie par l'application ou par l'objet' seulement sur les Excel Français.
Sur tous les Excel anglais que j'ai essayé, il n'y a pas de problème, tout se déroule bien.
Le programme bugue à l'instruction suivante : "For Each iV In ThisWorkbook.Names("l_certif_nbr").RefersToRange"
Avez-vous une idée pour m'éviter de me faire incendier en changeant la langue de tous les offices des utilisateurs ? ^^
Merci d'avance.
PS : J'ai regardé un peu le tour des messages déjà postés et y'a celui-ci (https://www.excel-downloads.com/threads/formule-avec-erreur-1004.46034/) qui m'a fait penser au problème de transposition anglais-Français, mais je vois pas réellement ce qui lui déplais...
		Code:
	
	
	      For iVi = 0 To taille_tab - 1
            With Worksheets("ADMINISTRATION")
         
                For Each iV In ThisWorkbook.Names("l_certif_nbr").RefersToRange
                    
                If iV.Value = Tab_Select(iVi) Then
                    iV.Delete
        
                    Exit For
                End If
                Next iV
            End With
        Next iVi
	
			
				Dernière édition: