Aller a 9 cellules plus loin

S

salsitawapa

XLDnaute Occasionnel

• 23 Juillet 2006

• #2

Re : Aller a 9 cellules plus loin

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

 

Vote positif 0 Vote négatif

petithomme

XLDnaute Occasionnel

• 23 Juillet 2006

• #3

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 😛

 

Vote positif 0 Vote négatif

petithomme

XLDnaute Occasionnel

• 23 Juillet 2006

• #4

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 ? 😕

 

Dernière édition: 23 Juillet 2006

Vote positif 0 Vote négatif

petithomme

XLDnaute Occasionnel

• 23 Juillet 2006

• #5

Re : Aller a 9 cellules plus loin

au secours svp 😱

 

Vote positif 0 Vote négatif

petithomme

XLDnaute Occasionnel

• 23 Juillet 2006

• #6

Re : Aller a 9 cellules plus loin

Voici un document word pour expliquer en images

 

Pièces jointes

• excel.zip

  43.4 KB · Affichages: 40
• excel.zip

  43.4 KB · Affichages: 40
• excel.zip

  43.4 KB · Affichages: 43

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 23 Juillet 2006

• #7

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...😀

 

Dernière édition: 23 Juillet 2006

Vote positif 0 Vote négatif

petithomme

XLDnaute Occasionnel

• 23 Juillet 2006

• #8

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 ^^

 

Pièces jointes

• Distributeur1 stock conf et boisson.xls

  44 KB · Affichages: 93

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 23 Juillet 2006

• #9

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)

 

Vote positif 0 Vote négatif

petithomme

XLDnaute Occasionnel

• 29 Juillet 2006

• #10

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

 

Vote positif 0 Vote négatif

petithomme

XLDnaute Occasionnel

• 29 Juillet 2006

• #11

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 !

 

Vote positif 0 Vote négatif

petithomme

XLDnaute Occasionnel

• 29 Juillet 2006

• #12

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 😛

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 29 Juillet 2006

• #13

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

 

Vote positif 0 Vote négatif

petithomme

XLDnaute Occasionnel

• 29 Juillet 2006

• #14

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 ?

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 30 Juillet 2006

• #15

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 ?

Cliquez pour agrandir...

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 :

Code:

[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 :

Code:

[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 :

Code:

[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 :

Code:

[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,

 

Vote positif 0 Vote négatif