Discussion :

[Xaphyr]

Bonjour,
Sous Tableur, avant d'avoir mis au point mon petit progamme VBA pour rédiger mes devis plus rapidement, après avoir sélectionnée une cellule j'utilisais la fonction " = Cellule unetelle de l'autre feuille " et NON "Copie". En effet les cellules sources étant le résultat de calcul d'autres calcul, la fonction copie ne renvoyait pas à la feuille source et décalait les calculs, donnant des résultats aberrants.
De cette façon, et c'est tout l'intérêt, si je modifie un paramêtre antérieur, la valeur de ma cellule s'en retrouve modifiée.( But: ajuster mon devis final)

Sous VBA, j'ai utilisé, i étant la variable de la dernière ligne d'écriture, par exemple:

Code :

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

Cells (i + 1, 4)= Worksheets("Calcul").Range("Z13")

et

Code :

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

Range("D" + CStr(i + 1) )=Worksheets("Calcul").Range("Z13")

Malheureusement, ces fonctions sont identiques et ne prennent que la valeur de la cellule source en coupant les liens. Si je modifie après coups mes indices de poses, la cellule source est bien modifiée mais PAS la destination.
J'ai essayé sans trops d'espoir:

Code :

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

Worksheets("Calcul").Range("Z13").Copy Range("D" + CStr(i + 1) )

( En apparté, si je mets Range(Cells(i + 1, 4) ) à la place ça bogue, pourquoi ?)

Mais cette formule revient au copiage bête évoqué plus haut donnant des résultats aberrant. (Copy valeurs, format et fonction mais en coupant les liens souces). Copy destination:= ne fonctionne pas mieux. C'est même identique, pourquoi rajouter destination:= ?

Quelle est donc la fonction VBA qui correspond à la fonction " = Cellule unetelle" ? Merci d'avance.

[SfJ5Rpw8]

Voir la propriété formula de la cellule ..

Pourquoi autant de propriétés 'Formula' différentes ?

[Xaphyr]

Si je mets Formula ça bogue.

Code :

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

Range("F" + CStr(m + 5)).Formula = "=Worksheets("Calcul").Range("AB179")"

Ne croyez pas que je ne cherche pas. Avant de poster une question, je fouille dans les aides et FAQ parfois plus d'une heure!!

[SfJ5Rpw8]

ce qu'il faut mettre dans la propriété formula c'est la même chose que sous Excel....

pour t'aider ..:

1. Sous Excel place la formule désirée dans une cellule
2. place ensuite le curseur sur cette cellule
3. passe ensuite sous l'editeur VBE (alt-f11)
4. dans la fenêtre exécution Ctrl G
5. puis saisi : ?ActiveCell.Formula
6. et le résultat affiché t'aidera à savoir se que tu dois mettre dans la propriété fromula

dans ton cas ... :

Code :

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

Range("F" + CStr(m + 5)).Formula = "=Calcul!AB179"

[Xaphyr]

Impec!
J'avais même pas imaginé que l'on puisse procéder ainsi !
Et comme on ne trouve rien ni dans l'aide, ni dans la FAQ, ni.... nulle part quoi, même pas dans le bouquin "Formation à VBA de dominique Maniez" que je déconseille.(J'ai reçu la version 2000 avec plein d'errurs d'indexation, Merci Amazon...)
Il ne me reste plus qu'à corriger les 50 pages voir plus de mes codes!

Merci BEAUCOUP!
You are The

PS: Même en cliquant sur le "dieze" avant chaque code ça inscrit (Code)(Code) mais ça ne fait pas l'encadré sur le forum...? Pas très explicite tout ça!