Discussion :

[maxmusix]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Merci d'avance

[78chris]

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...

[Marc-L]

Bonjour maxmusix,

pour tester le nom d'une cellule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 pour chaque message ayant aidé puis sur pour clore cette discussion …

[maxmusix]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[mercatog]

Ton x au début = 0

[maxmusix]

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.