Discussion :

[patricktoulon]

bonjour a tous
j'ai un petit schmilblick avec un TS avec des formules

quand j'ajoute une ligne

Code :

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

1
2
3
4
Sub AddRow()
    Range("Tableau2").Select
    ActiveSheet.ListObjects("Tableau2").ListRows.Add
End Sub

j'ai les formules qui me donnent #VALEUR!
je suis obligé de les selectionner pour aficher la formule et taper enter
j'ai essayé calculate sous toutes ces moutures (application,activesheet,activesheet.cells(x,y))mais rien n'y fait
mon excel est fainéant il veux pas calculer

une idées du comment on fait cette bouteille de lait??????

[patricktoulon]

re
j'ai contourner le problème en désactivant le calculation avant le addrow puis en la réactivant après
c'est pas top ca re calcule tout

[marot_r]

Bonjour.

Une idée pas forcément la plus élégante :

Code :

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

1
2
3
4
5
6
7
8
9
dim Cellule as range
dim TaLigne as range
set Taligne= 'ici ta nouvelle ligne dans la table de données.
 
for each Cellule in TaLigne.Cells
   Cellule.Formula=Cellule.Formula
next Cellule
 
set TaLigne=Nothing

A+

[patricktoulon]

re
bonjour marot_r
j'ai testé c'est plus long que la désactivation du calculate

Code :

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

1
2
3
4
5
6
7
8
Sub AddRow()
    'Application.Calculation = xlManual
    ActiveSheet.ListObjects("Tableau2").ListRows.Add
    'Application.Calculation = xlAutomatic
For Each Cellule In ActiveSheet.ListObjects("Tableau2").DataBodyRange.Cells
   Cellule.Formula = Cellule.Formula
Next Cellule
End Sub

merci pour le retour

[patricktoulon]

re
y a t il un moyen de désactiver le calculate sur la plage déjà calculée
si oui comment??
je voudrai désactivé celle qui son déjà avant le addrow

[Pierre Fauconnier]

Salut.

[Pierre Fauconnier]

Tu pourrais aussi utiliser SIERREUR(Calcul; ValeurSiErreur)... C'est un peu à cela que la fonction sert: contourner l'erreur...

[patricktoulon]

bonsoir Pierre
a ben oui j'y ai pas pensé
après j'ai toujours du mal il me manque toujours une parenthèses quelque par quand des formule sont imbriquées

en l'etat ma formule c'est:

=SI(Tableau2[[#Cette ligne];[FR]]<>"";NOMPROPRE(TRANSLAte(Tableau2[[#Cette ligne];[FR]]; "fr"; "en"));"en attente")

;[FR]]<>"";NOMPROPRE(TRANSLAte(Tableau2[[#Cette ligne];[FR]]; "fr"; "en"));"en attente");SI(Tableau2[[#Cette ligne];[FR]]<>"";NOMPROPRE(TRANSLAte(Tableau2[[#Cette ligne];[FR]]; "fr"; "en"));"en attente"))

et c'est la mémé pour la colonne ITA et ALL

autrement dit quand j'ajoute une nouvelle ligne j'ai les colonnes EN ITA ALL qui reçoivent "en attente" et des que j'inscris en FR j'ai les traductions

la fonction qui est utilisée dans la formule

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Option Explicit
 
Sub test()
    MsgBox Translate(Cells(4, 3), "fr", "it")
    'formule:   "=Translate(cellule; "fr"; "en")
End Sub
'
Public Function Translate(rng As Range, Optional From As String = "en", Optional ToLang As String = "fr") As String
    Dim Req As Object, URL As String, code As String, elem As Object, x As Long
    Set Req = CreateObject("MSXML2.ServerXMLHTTP")
    URL = "https://translate.google.pl/m?hl=fr&sl=" & From & "&tl=" & ToLang & "&ie=UTF-8&prev=_m&q=" & rng.Text
    'Debug.Print URL
    Req.Open "GET", URL, False
    Req.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
    Req.send ("")
    code = Req.responsetext
    'Debug.Print code
       With CreateObject("htmlfile")
        .body.innerhtml = code
         For Each elem In .all
            If Not IsNull(elem.getattribute("dir")) And elem.tagname = "DIV" Then x = x + 1
            'Debug.Print elem.innertext
            If x = 3 Then Translate = elem.innertext: Exit For
        Next
    End With
End Function

EDIT:
j'ai testé ca marche pas j'ai encore du rater quelque chose
surtout que je veux garder la condition sur si FR<>""

=SIERREUR(TSI(Tableau2[[#Cette ligne];[FR]]<>"";NOMPROPRE(TRANSLAte(Tableau2[[#Cette ligne];[FR]]; "fr"; "en"));"en attente");SI(Tableau2[[#Cette ligne];[FR]]<>"";NOMPROPRE(TRANSLAte(Tableau2[[#Cette ligne];[FR]]; "fr"; "en"));"en attente"))

[Pierre Fauconnier]

Il y a pour moi deux problèmes dans ce que tu as mis en place.

Sur le plan fonctionnel, aller rechercher les traductions sur Google à chaque fois que tu en as besoin est tout sauf productif (sauf à s'amuser à le faire, mais alors autant le faire avec des exercices qui ont du sens). On traduit une fois les libellés et on les stocke. Si demain tu veux utiliser ton classeur et que pour une raison ou l'autre tu n'es pas connecté, ça va pas le faire.


Pour la structure de tes tableaux, le problème est qu'elle va devoir être modifiée ( a minima, ajout d'une colonne et, sauf construction alambiquée, modification de la formule) si tu ajoutes une nouvelle langue.

Je t'avais donné dans une autre discussion une structure à deux tableaux pour réaliser cela facilement. Ca permet de ne pas mélanger la responsabilité de tes tableaux (un donne un texte en fonction d'une langue, l'autre décrit un contrôle) et ça permet surtout de n'avoir à toucher à rien lors de l'ajout d'une nouvelle langue.

Voici deux tableaux, un qui récupère une version linguistique de ce que tu veux (contrôle, message, ...) et l'autre qui définit les contrôles de ta commandbar. INDEX-EQUIV en matricielle permet de récupérer facilement le texte d'un contrôle en fonction de la langue, que ce soit en Excel ou en VBA.




Si tu veux ajouter l'italien, tu saisis simplement les données dans le tableau des textes et le tour est joué, sans que rien d'autre doive être modifié dans ta structure ou dans ton code.






Au passage, la version 2007 est puante pour ce qui concerne les références structurées, et je doute que tes références structurées passent en 2010 et dans les suivantes.

[patricktoulon]

re
oui c'est vrai apres ca devient lourd

si tu me parle des formule en disant "les références structurées" sache que ca passe sur 2013 32 bits
mais tu a raison je vais faire sans formule pour le tableau créateur j'ai même pensé a utiliser l'évènement change pour toutes des colonnes langues

et je vais ajouter un tableau que je mettrais a jour par un bouton ou quelque chose comme ca

juste une question en ce qui concerne l'organisation de mes données actuelles

pour une plage classique on peut dire "range ("A:F") peut on faire la même chose avec un TS du genre[[FR]:[AL]] ????

edit ok c'est bon je l'ai fait avec l'enregistreur de macro et ca ma donner la syntaxe

[patricktoulon]

bonjours a tous

je voudrais bien connaitre la syntaxe pour récupérer la plage entre 2 colonnes dans un tableau structuré
mais attention je ne veux que le header

exemple ici je récupère la ligne 1 du DataBodyRange concernant ces colonnes sauf que je veux le header

Code :

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

1
2
3
4
Sub test()
 ligne = WorksheetFunction.Index(Range("Tableau2[[FR]:[DE]]").Value, 1, 0)    'exemple de récupération de la ligne 1 de la plage en paramètre
    Debug.Print Join(ligne, ";")
End Sub

edit

bon j'ai trouvé une solution simple je ne sais pas si c'est propre mais bon
en fait j'utilise l'offset tout simplement

Code :

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

1
2
3
4
Sub test()
 ligne = WorksheetFunction.Index(Range("Tableau2[[FR]:[DE]]").Offset(-1).Value, 1, 0)    'exemple de récupération de la ligne 1 de la plage en paramètre
 Debug.Print Join(ligne, ";")
End Sub

[Philippe Tulliez]

Bonjour Patrick,
Solution rapide (je n'ai pas creusé plus loin)
La ligne ci-dessous te renvoie l'adresse de la plage

Code :

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

Debug.Print Evaluate("=Tableau1[[#Headers],[FR]:[EN]]").Address

donc le code ci-dessous permet de définir un Range partiel

Code :

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

1
2
3
4
  Dim rng As Range, addr As String
  addr = Evaluate("=Tableau1[[#Headers],[FR]:[EN]]").Address(external:=True)
  Set rng = Range(addr)
  rng.Select

[patricktoulon]

merci Philippe
comme d'habitude j'avais oublié la virgule
qué galère ces TS

PS:

donc le code ci-dessous permet de définir un Range partiel

la première sans ".Address"aussi

Code :

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

1
2
3
4
Sub test154() 'Archive
'récupérer une partie d'un range du header(tableau structurés)
Debug.Print TypeName(Evaluate("=Tableau2[[#Headers],[FR]:[EN]]")) '.Address
End Sub

je vais essayer de trouver la formule pour les non contigües pour mes archives merci encore

[Philippe Tulliez]

Bonjour Patrick,
Ce n'est pas le TS qui est en cause mais tout simplement la syntaxe qui sépare les arguments entre Excel et le VBA. Ceux qui ont la même Option de région dans Windows que les américains n'ont pas ce soucis parce-que dans ce cas la séparation des arguments en Excel est la virgule

[patricktoulon]

re
1°question1
y a t-il plus simple en terme de syntaxe

Code :

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

1
2
3
4
Sub test155() 'Archive
'récupérer une partie d'un range du tableau structurés  non contigües sans le header(DataBodyRange)
Debug.Print Range("Tableau2[[FR]], Tableau2[[IT]],Tableau2[[DE]]").Address
End Sub

'
2°question2
ne donne pas le resultat que je souhaite
je souhaiterais récupérer les colonnes en entier (headers inclus)

Code :

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

1
2
3
4
Sub test156() 'Archive
'récupérer une partie d'un range (tableau structurés) non contigües avec le header!!!
Debug.Print Range("Tableau2[[#HEADERS],[FR]], Tableau2[[#HEADERS],[IT]],Tableau2[[#HEADERS],[DE]]").Address
End Sub

merci pour les retours je galère terrible avec le TS

[Philippe Tulliez]

Bonjour Patrick,
Avant de coder en VBA, as-tu simplement sélectionné manuellement les cellules du tableau structuré que tu veux référencer
Voilà ce que tu aurais obtenus

Code :

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

=Tableau1[[#Tout];[FR]:[EN]]

soit en anglais

Code :

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

=Tableau1[[#All],[FR]:[EN]]

donc en VBA

Code :

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

 Debug.Print Evaluate("=Tableau1[[#All],[FR]:[EN]]").Address

Comme l'écrit régulièrement Pierre "Pensez Excel avant de penser VBA"

[patricktoulon]

re
merci Philippe
c'est vrai j'ai l'enregistreur non de dieu
des fois je sais pas ou j'ai la tête

[Philippe Tulliez]

Bonjour Patrick,
J'ai simplement sélectionné la cellule F1 et j'ai écrit "=" et ensuite j'ai sélectionné les cellules en question et puis pour avoir la traduction, je vais dans la fenêtre d'exécution et j'écris simplement

Code :

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

Debug.Print Range("F1").Formula

Ensuite Copier/Coller et je l'insère dans mon code VBA

[patricktoulon]

re
et mince avec tout ca j'ai foutu mon fichier en l'air en supprimant le module qu'il fallait pas
obligé de tout recommencer et de mémoire
en tout cas les TS me la simplifie pas la vie a moi
bon ben j'ai du boulot

[patricktoulon]

re
bon j'ai testé et ca n'est pas cela que je cherche Philippe

en fait c'est un truc du genre
les colonnes FR et IT ne sont pas contigües

Code :

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

Debug.Print Range("Tableau1[[#all],[[FR],[IT]]]").Address

et cela l'enregistreur ne te le donne pas tout du moins avec les références tableau mais avec les références cells comme une plage normale

je vais peut être: être obligé de passer par une petite fonction "Union" pour ne pas avoir a coder une formule de fou