RESOLU coller des formules ss lien de fichier

RESOLU coller des formules ss lien de fichier - VB/VBA/VBS - Programmation

Marsh Posté le 28-11-2005 à 11:29:40    

bonjour
 
j'ai une feuille pleine de formules et je veux m'en servir pour plusieurs classeurs excel.
 
qd je colle les cellules de cette feuille sur l'un deux, il copie non seulement la formule mais aussi le chemin du fichier, je veux juste copier la formule
 
comment faire ?


Message édité par peanutz le 29-11-2005 à 11:28:12
Reply

Marsh Posté le 28-11-2005 à 11:29:40   

Reply

Marsh Posté le 28-11-2005 à 18:09:03    

JSalut peanutz,
 
Je comprends pas bien, quand je fais ce genre de copier coller, ça ne me récupère aucune données sur la feuille ou le fichier. (formules simples)
Pourrais tu nous donner un exempe de ces formules. On y verra peut être plus clair :)
 
@+


---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)
Reply

Marsh Posté le 29-11-2005 à 11:27:51    

bah c bon, je me suis débrouillée autrement...
 
regarde !
 
    Sheets.Add After:=Sheets(Worksheets.Count)
    ActiveSheet.Name = ("résumé" )
    Range("a3" ).Select
    ActiveCell.FormulaR1C1 = "Groupes" 'titre groupes
    'debut tableau groupes
    Range("B3" ).Select
    ActiveCell.FormulaR1C1 = "=SUM('100 groupes'!R2C19:R101C19)"
    Range("c3" ).Select
    ActiveCell.FormulaR1C1 = "CA total"
    Range("B4" ).Select
    ActiveCell.FormulaR1C1 = "=SUM('100 groupes'!R2C33:R101C33)"
    Range("C4" ).Select
    ActiveCell.FormulaR1C1 = "effectifs locaux"
    Range("B5" ).Select
    ActiveCell.FormulaR1C1 = "=SUM('100 groupes'!R2C23:R101C23)"
    Range("C5" ).Select
    ActiveCell.FormulaR1C1 = "export"
    Range("B6" ).Select
    ActiveCell.FormulaR1C1 = "=SUM('100 groupes'!R2C29:R101C29)"
    Range("E5" ).Select
    ActiveCell.FormulaR1C1 = "groupes"
    Range("D5" ).Select
    ActiveCell.FormulaR1C1 = "=100-(COUNTBLANK('100 groupes'!R2C23:R101C23))"
    Range("C6" ).Select
    ActiveCell.FormulaR1C1 = "effectifs totaux"
    Range("D6" ).Select
    ActiveCell.FormulaR1C1 = "=COUNTBLANK('100 groupes'!R2C29:R101C29)"
    Range("E6" ).Select
    ActiveCell.FormulaR1C1 = "cellule(s) vide(s)"

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed