Aller a 9 cellules plus loin

[petithomme]

Bonjour,

voila, je fais une feuille de calculs de stocks, pour cela j'utilise cette forumule :

=(Feuil1!J4-Feuil1!B4)+SOMMEPROD(Feuil1!C4:Feuil1!I4)

je veux pour des raisons techniques et pratique faire ceci :

Feuil1!J4 + 9 cellules --> Feuil1!S4, vous voyez ?
J'ai essayé ca : Feuil1!J(4+9) mais cela ne marche pas, comment faire svp ?

Merci 😉

 

[salsitawapa]

Re : Aller a 9 cellules plus loin

Salut, tu veux mettre le résultat sur S4 ? ou additionner S4 avec J4 ?

 

[petithomme]

Re : Aller a 9 cellules plus loin

Non, je suis désolé de mon expression mais ce n'est pas facile,

en fait, je crois que le dernier post que je viens de poster va répondre à mon problème : regardez la :

Nouveau Probleme


Merci 😛

 

[petithomme]

Re : Aller a 9 cellules plus loin

Pardon en fait cela ne répond pas a mon, probleme donc je vais réexpliquer :

Je souhaite que en copiant une colonne et ses lignes dans lesquelle il y a cette formule : =(Stocks!J4-Stocks!B4)+SOMMEPROD(Stocks!C4:Stocks!I4)
la colonne suivante (la copie de la 1ere) ce soit la formule suivante :
=(Stocks!S4-Stocks!K4)+SOMMEPROD(Stocks!L4:Stocks!R4)
donc que chaque cellule soit décalée de 9 par rapport à la première colonne,
puis si je veux créer une 3e colonne, que ce soit décalé de +9 par rapport a la 2e . . .

en fait je veux décaler seulement le Chiffre de la colonne, pas le nombre J4 ---> S4

vous comprennez ? 😕

 

[petithomme]

Re : Aller a 9 cellules plus loin

au secours svp 😱

 

[petithomme]

Re : Aller a 9 cellules plus loin

Voici un document word pour expliquer en images

 

[JCGL]

Re : Aller a 9 cellules plus loin

Bonsoir le Forum, petithomme et salsitawapa (Coucou Pompier 38 🙂, ici CHU 38)

Je pense que tu pourrais y arriver avec une formule du genre :

=SI(INDIRECT(ADRESSE(LIGNE()...;COLONNE()...;4;;Ta Cellule Nommée par Insertion/Nom/Définir))<>"";INDIRECT(ADRESSE(LIGNE()...;COLONNE()...;4;;Ta Cellule Nommée par Insertion/Nom/Définir));"")

Bien évidement, les valeurs de ligne()... et colonne()... sont à adapter.

Edition : Pourquoi envoyer un *.doc ??? Mets un *.xls cela sera plus simple...😀

 

[petithomme]

Re : Aller a 9 cellules plus loin

Voici ma feuille.

Je n'ai pas compris ta solution . . . dsl je débute 😉
Au fait je reviens dans quelques jours donc si vous me posez des questions pas d'étonnement si je réponds pas de suite ^^

 

[Monique]

Re : Aller a 9 cellules plus loin

Bonjour,

à essayer :

=SOMME(DECALER(Stocks!$B3;0;ENT(COLONNES($B5:B5)/4)*9+1;1;8))-DECALER(Stocks!$A3;0;ENT(COLONNES($B5:B5)/4)*9+1)

à mettre en B5
puis tu copies en F5 puis en J5 etc (toutes les 4 colonnes)

=DECALER(Réf ; Nb de lignes ; Nb de colonnes ; Hauteur ; Largeur)

 

[petithomme]

Re : Aller a 9 cellules plus loin

merci monique mais je voudrais que cela se fasse en appuyant sur mon bouton, en VBA quoi car ce classeur sera utilisé par plusieurs personnes qui ne savent pas la manip a faire, donc le plus simple est un bouton qui integre cete formule et donc qui fais le copier collé du tableau avec la formule

 

[petithomme]

Re : Aller a 9 cellules plus loin

heu pardon de cette réponse inutile !
Merci monique cette formule fonctionne a merveille mais je me suis planté de formule je crois :

je voudrais que la formule me fasse : B3 + (C3:I3) - J3
et que la somme soit comme la précédente, que je puisse la décaler . . . MERCI !

 

[petithomme]

Re : Aller a 9 cellules plus loin

=SOMME(DECALER(Stocks!$A3;0;ENT(COLONNES($B5:B5)/4)*9+1;1;8))-DECALER(Stocks!$I3;0;ENT(COLONNES($B5:B5)/4)*9+1)


voici ma solution trouvée en bidouillant !
Merci à tous de votre aide !

Bye Bye 😛

 

[Monique]

Re : Aller a 9 cellules plus loin

Bonjour,

Je ne sais pas faire de macro, mais tu en as déjà une qui fait un copié-collé.

Fais un essai avec cette formule en B5 :
=SOMME(DECALER(Stocks!$A3;0;ENT(COLONNES($B5:B5)/4)*9+1;1;8))-DECALER(Stocks!$A3;0;ENT(COLONNES($B5:B5)/4)*9+9)

ça donne pour B5 :
=SOMME(B3:I3)-J3

Edit
Je n'avais pas vu ton dernier message

 

[petithomme]

Re : Aller a 9 cellules plus loin

Heu une derniere question :

Public Sub Recopie()

Feuil1.Columns("L:U").Copy
Feuil1.Range("L1").End(xlToRight).Offset(0, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Feuil2.Activate
Feuil2.Columns("F:I").Copy
Feuil2.Range("F1").End(xlToRight).Offset(0, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False

End Sub

est-il possible de copier les cellules et colonnes sans leur contenue pour les celles de la feuil1 svp ?

 

[myDearFriend!]

Re : Aller a 9 cellules plus loin

Bonsoir Monique, petithomme, salsitawapa, JCGL,

est-il possible de copier les cellules et colonnes sans leur contenue pour les celles de la feuil1 svp ?

Si j'ai bien compris la question (pas sûr...), voici 2 solutions possibles :

La première sans remettre en cause ton code précédent :

[SIZE=2]Feuil1.Columns("L:U").Copy
Feuil1.Range("L1").[COLOR=navy]End[/COLOR](xlToRight).Offset(0, 1).[COLOR=navy]Select[/COLOR]
ActiveSheet.Paste
[B]Selection.ClearContents[/B][/SIZE]

La deuxième, d'une toute autre façon :

[SIZE=2]With Feuil1
    .Columns("L:U").Copy
    .Range("L1").[COLOR=navy]End[/COLOR](xlToRight).Offset(0, 1).Columns("A:J").EntireColumn.PasteSpecial Paste:=xlPasteFormats
[COLOR=navy]End[/COLOR] With[/SIZE]

Par ailleurs, pour la feuille 2, si je puis me permettre, je te conseillerais de remplacer :

[SIZE=2][COLOR=gray]Feuil2.Activate
Feuil2.Columns("F:I").Copy
Feuil2.Range("F1").End(xlToRight).Offset(0, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False[/COLOR][/SIZE]

Par :

[SIZE=2]With Feuil2
    .Columns("F:I").Copy Destination:=.Range("F1").[COLOR=navy]End[/COLOR](xlToRight).Offset(0, 1)
[COLOR=navy]End[/COLOR] With[/SIZE]

VBA est un outil puissant qui te permet d'agir sur les objets Worksheet, Range (ou autre) sans même avoir à les sélectionner ! Il convient donc d'éviter au maximum les "select" inutiles...

Cordialement,