If ActiveCell.FormulaR1C1 = "" Then GoTo fin
desct = ActiveCell.FormulaR1C1
ActiveCell.Offset(2, 0).Select
niveau = ActiveCell.FormulaR1C1
Sheets("Soumission").Select
ActiveCell.Offset(2, -1).Select
ActiveCell.FormulaR1C1 = "Fourniture de " & desct & " au " & niveau
end if
ce qui donne le resultat suivant dans ma cellule:
Fourniture de mur exterieur au niveau 4
mais ce que je voudrait c'est que sa soit toujour ecrit "Fourniture
de"...."au" par default et ensuite au lieu d'etre marquer "mur exterieur" je
voudrait que sa soit
='Tableau 1'!A66
Donc de quoi qui ressemble a sa "Fourniture de" ='Tableau 1'!A66 "au"
='Tableau 1'!A68
Mais je ses pas comment l'ecrire ou si sa ce fait ??
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Hervé
Bonsoir Dom,
Peut être ceci ? ActiveCell.Formula = "=""Fourniture de "" & 'Tableau 1'!A66 & "" au "" & 'Tableau 1'!A68"
Hervé.
"Dom" a écrit dans le message de news:
Bonjour a tous,
Voivi un bout de mon code.....
If ActiveCell.FormulaR1C1 = "" Then GoTo fin desct = ActiveCell.FormulaR1C1 ActiveCell.Offset(2, 0).Select niveau = ActiveCell.FormulaR1C1 Sheets("Soumission").Select ActiveCell.Offset(2, -1).Select ActiveCell.FormulaR1C1 = "Fourniture de " & desct & " au " & niveau end if
ce qui donne le resultat suivant dans ma cellule: Fourniture de mur exterieur au niveau 4
mais ce que je voudrait c'est que sa soit toujour ecrit "Fourniture de"...."au" par default et ensuite au lieu d'etre marquer "mur exterieur" je voudrait que sa soit ='Tableau 1'!A66
Donc de quoi qui ressemble a sa "Fourniture de" ='Tableau 1'!A66 "au" ='Tableau 1'!A68
Mais je ses pas comment l'ecrire ou si sa ce fait ??
quelqu'un peut maider s.v.p
Merci !
Bonsoir Dom,
Peut être ceci ?
ActiveCell.Formula = "=""Fourniture de "" & 'Tableau 1'!A66 & "" au "" &
'Tableau 1'!A68"
Hervé.
"Dom" <Dom_3@hotmail.com> a écrit dans le message de news:
OwkfvlkMGHA.3984@TK2MSFTNGP14.phx.gbl...
Bonjour a tous,
Voivi un bout de mon code.....
If ActiveCell.FormulaR1C1 = "" Then GoTo fin
desct = ActiveCell.FormulaR1C1
ActiveCell.Offset(2, 0).Select
niveau = ActiveCell.FormulaR1C1
Sheets("Soumission").Select
ActiveCell.Offset(2, -1).Select
ActiveCell.FormulaR1C1 = "Fourniture de " & desct & " au " & niveau
end if
ce qui donne le resultat suivant dans ma cellule:
Fourniture de mur exterieur au niveau 4
mais ce que je voudrait c'est que sa soit toujour ecrit "Fourniture
de"...."au" par default et ensuite au lieu d'etre marquer "mur exterieur"
je voudrait que sa soit
='Tableau 1'!A66
Donc de quoi qui ressemble a sa "Fourniture de" ='Tableau 1'!A66 "au"
='Tableau 1'!A68
Mais je ses pas comment l'ecrire ou si sa ce fait ??
Peut être ceci ? ActiveCell.Formula = "=""Fourniture de "" & 'Tableau 1'!A66 & "" au "" & 'Tableau 1'!A68"
Hervé.
"Dom" a écrit dans le message de news:
Bonjour a tous,
Voivi un bout de mon code.....
If ActiveCell.FormulaR1C1 = "" Then GoTo fin desct = ActiveCell.FormulaR1C1 ActiveCell.Offset(2, 0).Select niveau = ActiveCell.FormulaR1C1 Sheets("Soumission").Select ActiveCell.Offset(2, -1).Select ActiveCell.FormulaR1C1 = "Fourniture de " & desct & " au " & niveau end if
ce qui donne le resultat suivant dans ma cellule: Fourniture de mur exterieur au niveau 4
mais ce que je voudrait c'est que sa soit toujour ecrit "Fourniture de"...."au" par default et ensuite au lieu d'etre marquer "mur exterieur" je voudrait que sa soit ='Tableau 1'!A66
Donc de quoi qui ressemble a sa "Fourniture de" ='Tableau 1'!A66 "au" ='Tableau 1'!A68
Mais je ses pas comment l'ecrire ou si sa ce fait ??
quelqu'un peut maider s.v.p
Merci !
Dom
Bonjour Hervé
ta solution pourrait etre bonne mais le probleme c'est que pour mon exemple j'ai choisi A66 mais sa peut aussi bien etre A55......A98....A..... bref c'est sa qui me ramenne niveau = ActiveCell.FormulaR1C1..
Merci de ton attention "Hervé" a écrit dans le message de news: e$%
Bonsoir Dom,
Peut être ceci ? ActiveCell.Formula = "=""Fourniture de "" & 'Tableau 1'!A66 & "" au "" & 'Tableau 1'!A68"
Hervé.
"Dom" a écrit dans le message de news:
Bonjour a tous,
Voivi un bout de mon code.....
If ActiveCell.FormulaR1C1 = "" Then GoTo fin desct = ActiveCell.FormulaR1C1 ActiveCell.Offset(2, 0).Select niveau = ActiveCell.FormulaR1C1 Sheets("Soumission").Select ActiveCell.Offset(2, -1).Select ActiveCell.FormulaR1C1 = "Fourniture de " & desct & " au " & niveau end if
ce qui donne le resultat suivant dans ma cellule: Fourniture de mur exterieur au niveau 4
mais ce que je voudrait c'est que sa soit toujour ecrit "Fourniture de"...."au" par default et ensuite au lieu d'etre marquer "mur exterieur" je voudrait que sa soit ='Tableau 1'!A66
Donc de quoi qui ressemble a sa "Fourniture de" ='Tableau 1'!A66 "au" ='Tableau 1'!A68
Mais je ses pas comment l'ecrire ou si sa ce fait ??
quelqu'un peut maider s.v.p
Merci !
Bonjour Hervé
ta solution pourrait etre bonne mais le probleme c'est que pour mon exemple
j'ai choisi A66 mais sa peut aussi bien etre A55......A98....A..... bref
c'est sa qui me ramenne
niveau = ActiveCell.FormulaR1C1..
Merci de ton attention
"Hervé" <hmsilvePasDePub@wanadoo.fr> a écrit dans le message de news:
e$%23kaPmMGHA.3556@TK2MSFTNGP10.phx.gbl...
Bonsoir Dom,
Peut être ceci ?
ActiveCell.Formula = "=""Fourniture de "" & 'Tableau 1'!A66 & "" au "" &
'Tableau 1'!A68"
Hervé.
"Dom" <Dom_3@hotmail.com> a écrit dans le message de news:
OwkfvlkMGHA.3984@TK2MSFTNGP14.phx.gbl...
Bonjour a tous,
Voivi un bout de mon code.....
If ActiveCell.FormulaR1C1 = "" Then GoTo fin
desct = ActiveCell.FormulaR1C1
ActiveCell.Offset(2, 0).Select
niveau = ActiveCell.FormulaR1C1
Sheets("Soumission").Select
ActiveCell.Offset(2, -1).Select
ActiveCell.FormulaR1C1 = "Fourniture de " & desct & " au " & niveau
end if
ce qui donne le resultat suivant dans ma cellule:
Fourniture de mur exterieur au niveau 4
mais ce que je voudrait c'est que sa soit toujour ecrit "Fourniture
de"...."au" par default et ensuite au lieu d'etre marquer "mur exterieur"
je voudrait que sa soit
='Tableau 1'!A66
Donc de quoi qui ressemble a sa "Fourniture de" ='Tableau 1'!A66 "au"
='Tableau 1'!A68
Mais je ses pas comment l'ecrire ou si sa ce fait ??
ta solution pourrait etre bonne mais le probleme c'est que pour mon exemple j'ai choisi A66 mais sa peut aussi bien etre A55......A98....A..... bref c'est sa qui me ramenne niveau = ActiveCell.FormulaR1C1..
Merci de ton attention "Hervé" a écrit dans le message de news: e$%
Bonsoir Dom,
Peut être ceci ? ActiveCell.Formula = "=""Fourniture de "" & 'Tableau 1'!A66 & "" au "" & 'Tableau 1'!A68"
Hervé.
"Dom" a écrit dans le message de news:
Bonjour a tous,
Voivi un bout de mon code.....
If ActiveCell.FormulaR1C1 = "" Then GoTo fin desct = ActiveCell.FormulaR1C1 ActiveCell.Offset(2, 0).Select niveau = ActiveCell.FormulaR1C1 Sheets("Soumission").Select ActiveCell.Offset(2, -1).Select ActiveCell.FormulaR1C1 = "Fourniture de " & desct & " au " & niveau end if
ce qui donne le resultat suivant dans ma cellule: Fourniture de mur exterieur au niveau 4
mais ce que je voudrait c'est que sa soit toujour ecrit "Fourniture de"...."au" par default et ensuite au lieu d'etre marquer "mur exterieur" je voudrait que sa soit ='Tableau 1'!A66
Donc de quoi qui ressemble a sa "Fourniture de" ='Tableau 1'!A66 "au" ='Tableau 1'!A68
Mais je ses pas comment l'ecrire ou si sa ce fait ??
