Probleme écriture code

Bonjour à tous

Faisant suite à un autre sujet qui concernait l'attribution de noms aux cellules.

Cela me posait un problème si j'insserrait ou supprimais des lignes donc plus de noms.

mais le problème c'est que je travaille sur 10 feuilles semblables et j'avait donc attribué des noms du style G_3_4 pour la cellule G3 de la feuille 4.

Le code ci dessous fonctionnait tres bien avec le noms.

If [soustotal_ht_3].Formula = "=SUM(G10_G58_3)+(G_3_3)" Then

Range("G_3_4").Value = [soustotal_ht_3].Value

Range("G_4_4").Value = [soustotal_tva_3].Value

Range("G_5_4").Value = [soustotal_ttc_3].Value

Range("E_4_4").Value = [taux_tva].Value

ElseIf [total_ht_3].Formula = "=SUM(G10_G53_3)+(G_3_3)" Then

Range("G_3_4").Value = [total_ht_3].Value

Range("G_4_4").Value = [total_tva_3].Value

Range("G_5_4").Value = [total_ttc_3].Value

Range("E_4_4").Value = [taux_tva].Value

Else

Range("G_3_4").Value = ""

Range("G_4_4").Value = ""

Range("G_5_4").Value = ""

Range("E_4_4").Value = ""

End If

End Sub

Ce code fait donc réferrence aux feuilles 3 et 4 et à d'autres cellules nommées et contenues dans une autre feuille.

Je ne sais pas comment écrire correctement ce code sans les noms, en faisant donc réf. aux deux feuilles.

pouvez vous m'aider svp.

quelque chose dans le genre:

If sheets("feuil3").range("G60").Formula = c'est là ou je bloque le plus...

sheets("feuil4").range("G3").value=sheets("feuil3" ).range("G50").value

sheets("feuil4").range("G4").value=sheets("feuil3" ).range("G51").value

sheets("feuil4").range("G5").value=sheets("feuil3" ).range("G52").value

etc...

Merci

Bonsoir,

essaie ceci ;

Sub tata()
If Sheets("feuil3").Range("G60").HasFormula = True Then
sheets(".....
....
End if
End sub

Amicalement

Dan

Nad-Dan a écrit :

Bonsoir,

essaie ceci ;

Sub tata()
If Sheets("feuil3").Range("G60").HasFormula = True Then
sheets(".....
....
End if
End sub

Amicalement

Dan

Bonjour et merci pour ta réponse, mais je ne comprends pas bien la signification de HasFormula = True .

En fait je veux écrire le code suivant:si la cellule G60 de la feuille 3 contient la formule somme des cellules G10 à G58 de la feuille 3 + la valeur contenu dans la cellule G3 de la feuille 3 Alors

la valeur de cellule G3 de la feuille 4 = la valeur de cellule G60 de la feuille 4

etc...

Ce code s'exécute à l'ouverture de la feuille 4

Bonjour à tous,

As-tu lu ma réponse sur ton fil précédent ?

qui semble être lié

Claude.

dubois a écrit :

Bonjour à tous,

As-tu lu ma réponse sur ton fil précédent ?

qui semble être lié

Claude.

désolé mais je n'avais pas lu ta réponse effectivement.

Mais elle ne correspond pas tout à fait à mon problème du fil précédent que je solutionne en supprimant tout les noms, ce qui crée le problème actuel car si j'arrive à écrire des codes faisant référence à des cellules nommées faisant partie de feuilles différentes j'ai plus de difficulté sans les noms.

ça doit pas être si simple puisque personne me donne la solution.

re,

et si tu envoyait ton fichier, ce serait + simple pour t'aider !

Claude.

Re,

je ne comprends pas bien la signification de HasFormula = True

Cette instruction vérifie la présence ou non d'une formule en cellule G60

En fait je veux écrire le code suivant:si la cellule G60 de la feuille 3 contient la formule somme des cellules G10 à G58 de la feuille 3 + la valeur contenu dans la cellule G3 de la feuille 3 Alors la valeur de cellule G3 de la feuille 4 = la valeur de cellule G60 de la feuille 4

Ce que tu cherches c'est de savoir s'il y a une formule en G60 ou une valeur représentant la somme des cellules G10 à G58 + celle de G3 ??

Dan