Tester une cellule nommé

Bonjour, après avoir visionner quelques discutions sans succès, je me permet de créer ma propre discutions.

Je souhaiterai tester le nom d'une cellule pour effectuer mon traitement.

j'ai pensais à quelque chose comme ça:

if cells(x,1).name = nomCellule

puis j'ai essayer:

Code:

---

If Not Intersect(Cells(x, 1), Range("nomCellule")) Is Nothing Then

---

ça fonctionne, Seulement lorsque que j'ai voulu appliquer cette fonction a ma boucle while j'obtiens une erreur 1004.

j'aimerai effectuer quelque chose dans ce style:

Code:

---

1 2	do while cells(x,1).name <> nomCellule loop

---

J'ai essayé ce-ci mais sans résultat:

Code:

---

Do While Intersect(Cells(x, 1), Range("nomCellule")) Is Nothing

---

J'espère ne pas être trop brouillon.

Merci d'avance

Bonjour


Si toutes les cellules de ta boucle ne sont pas nommées, cela plante sans doute sur cells(x,1).name

Quel est l'objectif final ?

Sachant qu'on peut connaître l'adresse correspondant à un nom, le test inverse serait une meilleure piste...

Bonjour maxmusix,

pour tester le nom d'une cellule :

Code:

---

1 2 3 4

Function CellName(ByVal Rg As Range) On Error Resume Next CellName = Rg.Name.Name End Function

---

Au passage, pour savoir si un nom n'existe pas :

Code:

---

1 2 3

Function NoExistName(N) As Boolean NoExistName = IsError(Evaluate(N)) End Function

---

Comme tu as été peu clair, je me demandes si tu ne confonds pas avec l'adresse.

Dans ce cas voir du côté de la propriété .Address …


__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Bonjour tous le monde, désolé si je n'ai pas été très clair, je m'explique j'ai plusieurs cellules d'une feuille de calcul qui correspondent à une partie "fournitures diverses" j'ai nommé la première cellule de ma partie "debutDivers" et la dernière "finDivers".

Pour effectuer mon traitement je teste si le nom de la cellule est = "Debut divers". Si c'est le cas j'effectue mon traitement jusqu'à "finDivers".

Voici mon code :

Code:

---

1 2 3 4

If Not Intersect(Cells(x, 1), Range("debutDivers1")) Is Nothing Then traitementDivers "finDivers1", 0 Else: x = x + 1 End If

---

Avec "traitementDivers" ma fonction de traitement:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub traitementDivers(fin As String, colonne As Integer)   Do While Intersect(Cells(x, 1), Range(fin)) Is Nothing '<------erreur ici   divers(0, colonne) = divers(0, colonne) + Cells(x, 4).Value divers(1, colonne) = divers(1, colonne) + Cells(x, 6).Value divers(2, colonne) = divers(2, colonne) + Cells(x, 7).Value   x = x + 1 Loop End Sub

---

Mon If fonctionne mais mon while génère une erreur.

merci pour vos réponses en tout cas je vais tester vos propositions en attendant.

Ton x au début = 0

Il est égal à 9 au début ce qui corresponds à la fin de mon entête et a ma ligne de départ , je saute l'entête pour ce traitement.

Pourquoi ne pas faire simple

Code:

---

1 2 3 4 5 6

Dim i As Long   For i = Range("debutDivers1").Row To Range("finDivers1").Row MsgBox Cells(i, 4).Value   Next i

---

Effectivement c'est plus simple, j'ai donc opté pour votre méthode et elle fonctionne parfaitement. Seulement je viens de m'apercevoir que ma manière de procèder n'est pas bonne car en effet j'ai plusieurs bloc divers sur plusieurs feuille, ce qui voudrait dire que je dois tous leurs donner un nom différent: ça va élargir mon code.

Je cherche a affecter le résultat des lignes d'un bloc divers dans une variable et ceux d'un autre dans une autre.

J'ai pensais affecter une couleur à mes blocs mais pareil j'arrive pas a les différencier.

Bonjour


Ces noms étant juste un moyen de trouver le début et la fin d'une plage, il y a sans doute d'autres solutions : que contiennent tes onglets en dehors de cette plage ?

Ne peux-tu mettre ces plages sous forme de tableau : cela simplifierait grandement ton problème...

Mes onglets sont sous la forme d'une feuille de prix avec , un prix une quantité , une main oeuvre. J'ai du matériels classé par catégorie dans chaque onglets et on retrouve dans chaque onglets ces parties diverses où sont renseigné à la main des articles ne figurant pas dans la listes.

Ce que je dois faire c'est récupérer les quantité,prix,..., dans ces lignes diverses et les synthétiser dans une autre feuille. J'aurai très bien pu récupérer ces valeurs en inscrivant en dur l'emplacement de ces partie seulement, elle peuvent s'agrandir: donc il me faut aussi un côté dynamique. En inscrivant ces plages dans un tableau comment pourrais je procéder?

Bonjour


Depuis 2003 mais surtout 2007, tu peux déclarer une liste de données en tableau : onglet accueil, mettre sous forme de tableau.
Ensuite tu nommes le tableau.

Avec un code de type

Code:

---

1 2 3 4

For Each ligne In Range("NomTableau").Rows code traitant chaque ligne .... Next ligne

---

tu peut traiter toutes les lignes (la ligne de titre est automatiquement exclue)

Par exemple

Code:

---

.Cells(1, 4).Value te donne le contenu de la colonne 4 de la ligne analysée

---

Bonjour,

Je viens de tester votre proposition effectivement ça simplifie la vie et ça fonctionne. Savez vous comment peut on tester si un nom de tableau existe dans la feuille?

Merci pour votre attention

Voila j'ai réussit à faire à peu près ce que je voulais, je vous remercie de votre aide, continuez comme ça.

Je ferme donc ce sujet, merci encore bonne continuation.