Discussion :

[Alecine]

Bonjour !
Voila je risque de souvent etre présent dans les semaines a venir parmis vous !
En effet je suis en stage pendant 6 semaines et donc votre aide me sera précieuse ^^
Voici ma demande du jour :
Ca ne doit pas être bien compliqué lol
Il s'agit simplement de copier une plage de valeur (cette plage comprend des cellules simples-avec du texte simplement- et d'autres avec des formules propres a une feuille) vers une autre feuille avec bien entendu toutes les informations restées qui font reference a la nouvelle feuille !
J'espere avoir été clair !

Un exemple quand meme :
Dans une feuille1 j'ai cette formule : "=B65+D59" qui fait évidemment référence aux cellules de feuille1
J'aimerais retrouver cette formule dans la feuille2 sans erreur.
Le tout en VBA ^^

Merci d'avance a vous j'espere ne pas trop vous embeter

[zyhack]

Bonjour

tu peux utiliser un e formulation comme celle ci

Code :

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

Worksheets("Feuil1").Range("A1:x100").Copy Worksheets("Feuil2").Range("A1")

évidemment à modifier suivant ta plage de valeur et le nom de tes feuilles

bon courage

[Alecine]

Ca revient a ce que j'ai déja .
Voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Bouton55_QuandClic()
 
'Création d'une nouvelle feuille
Sheets.Add(after:=Sheets(Sheets.Count)).Name = "Nouvelle"
'Selection puis copier/coller de la plage de cellules
Worksheets("Projection").Select
Worksheets("Projection").Range("A65:E" & Cells(Rows.Count, "A").End(xlUp).Row).Copy _
Worksheets("Nouvelle").Range("A1")
 
End Sub

Et evidemment dans ma feuille "Nouvelle" j'ai des cases du style #REF #N/A
Ce qui semble tout a fait logique avec un simple copier coller ^^

[Alecine]

J'ai mis a jour mon code j'ai déja une amélioration.
J'ai une recopie des données mais pas des formules avec ce code suivant mais c'est déja bien ^^

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Bouton66_QuandClic()
 
'Création d'une nouvelle feuille
Sheets.Add(after:=Sheets(Sheets.Count)).Name = "Nouvelle"
'Selection puis copier/coller de la plage de cellules
Worksheets("Projection").Select
Worksheets("Projection").Range("A65:E" & Cells(Rows.Count, "A").End(xlUp).Row).Copy
 
Sheets("Nouvelle").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
 
End Sub

[Alecine]

Bon j'ai une autre demande mais je ne veux pas faire 300 topics pour surcharger le forum et les demandes des autres !
Voici une image qui me permettra de vous expliquer :



Comme vous pouvez le voir j'ai une liste déroulante au dessus de ma plage de cellules qui contient chaque jour du mois.
Les valeurs de la plage changent évidemment en fonction du jour.
Je voudrais donc que tous les jours se copient automatiquement dans ma feuille "Nouvelle" ca me ferait donc 30 ou 31 plages de valeurs dans ma nouvelle feuille les unes au dessus des autres.
J'espere que c'est pas trop tordu et que quelqu'un va pouvoir m'aider

[zyhack]

Ca revient a ce que j'ai déja .
Voici mon code

ça aurai sympa de le dire que tu avais déja du code !

Le problème des formules est que quand tu fais une copie d'une formule d'une cellule A50 qui contient =A48+A47 en cellule A20 elle contiendra =A18+A19

Tant que les formules restent dans la plage que tu copie normalement tu n'as pas de problème mais si tu as des formules du style =SOMME(Feuil2!A50:A73) il faut mettre des $ comme ça =SOMME(Feuil2!$A$50:$A$73)



a+