Aller a 9 cellules plus loin

petithomme

XLDnaute Occasionnel

• 30 Juillet 2006

• #16

Re : Aller a 9 cellules plus loin

Feuil1.Columns("L:U").Copy
Feuil1.Range("L1").End(xlToRight).Offset(0, 1).Select
ActiveSheet.Paste
Selection.ClearContents

Cliquez pour agrandir...

Cool ca merci mais maintenant je voudrais éviter d'effacer les 2 premières lignes (L1:U1 et L2:U2) ?


Merci pour tes codes, j'adore VBA, je codais il y a bien longtemps mais j'ai jamais appliqué a excel !

EDIT : Pardon, correction :

Feuil1.Columns("K:S").Copy
Feuil1.Range("K1").End(xlToRight).Offset(0, 1).Select
ActiveSheet.Paste
Selection.ClearContents

Cliquez pour agrandir...

 

Dernière édition: 30 Juillet 2006

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 30 Juillet 2006

• #17

Re : Aller a 9 cellules plus loin

Bonjour petithomme, le fil,

Tu es tellement clair dans tes explications que je ne suis toujours pas sûr d'avoir compris la question...
A tout hasard, je te propose de remplacer :

Code:

[SIZE=2]      [COLOR=navy]Select[/COLOR]ion.ClearContents[/SIZE]

Par :

Code:

[SIZE=2]      Application.Intersect([COLOR=navy]Select[/COLOR]ion, Rows("3:65536")).ClearContents[/SIZE]

Cordialement,

 

Vote positif 0 Vote négatif

petithomme

XLDnaute Occasionnel

• 30 Juillet 2006

• #18

Re : Aller a 9 cellules plus loin

Je suis désolé !

Donc en fait, en francais voici ce que je souhaite :

Je prends en références les colonnes K:S (avec les lignes 1:40), ce qui me donne un tableau.
Je selectionne ce tableau et le copie. Mon probleme c'est que en copiant ce tableau je prend toutes ses valeurs (qui se situent dans les lignes 3:40), je souhaite donc effacer le contenu des lignes 3:40 de mon nouveau tableau.

Comprends tu comme ceci ?
La formule avec selection.clearcontents me supprime tout le contenu de mon tableau car c'est tout le tableau qui est sélectionné !

Voici ce que je cherche a faire :

me positionner sur la dernière cellule active de la ligne 3, selectionner toutes les 8 cellules qui se trouvent avant celle ci, puis toutes les cellules sous les 8 selectionnées, apres reste plus qu'à supprimer ! 😉

Do you understanding me sir ?😕

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 30 Juillet 2006

• #19

Re : Aller a 9 cellules plus loin

Re,

petithomme à dit:

...
La formule avec selection.clearcontents me supprime tout le contenu de mon tableau car c'est tout le tableau qui est sélectionné !
...

Cliquez pour agrandir...

Et la solution que je viens de te proposer plus haut ?

Code:

[SIZE=2]Application.Intersect([COLOR=Blue]Selection[/COLOR], Rows("3:65536")).ClearContents
[/SIZE]

l'as-tu testée ?

 

Vote positif 0 Vote négatif

petithomme

XLDnaute Occasionnel

• 5 Août 2006

• #20

Re : Aller a 9 cellules plus loin

J'avais pas vu dsl, merci elle fonctionne à merveille !

Bon je pense en avoir finit avec ca, merci à tous de votre aide, je reviens dès que ca ne va plus !!!


+++ 😀

 

Vote positif 0 Vote négatif

petithomme

XLDnaute Occasionnel

• 6 Août 2006

• #21

Re : Aller a 9 cellules plus loin

Quand il n'y en plus, il y en a encore !

Bonjour,

voila, la derniere formule pour effacer le contenu m'allais bien jusqu'à ce qu'on me dise qu'il ne fallait pas effacer la 1er colonne de la selection, comment faire ?

Merci 😀

EDIT : aussi : je souhaite que dans ma feuil2, il y est une colonne à droite de la dernière qui me fasse la somme de chaque ligne, pour savoir donc le nombre de produits vendus, vous me direz c'est facile mais mon problème est que lorsque je vais copier-coller mes colonnes avec VBA il va me laisser cette colonne, regardez mon exemple dans le dernier post

 

Dernière édition: 6 Août 2006

Vote positif 0 Vote négatif

petithomme

XLDnaute Occasionnel

• 6 Août 2006

• #22

Re : Aller a 9 cellules plus loin

Voici ma feuille

 

Vote positif 0 Vote négatif

petithomme

XLDnaute Occasionnel

• 6 Août 2006

• #23

Re : Aller a 9 cellules plus loin

DSL 🙄

 

Pièces jointes

• Distributeur1 stock conf et boisson.zip

  15.5 KB · Affichages: 29

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 6 Août 2006

• #24

Re : Aller a 9 cellules plus loin

Bonsoir Petithomme, le fil, le Forum,

Tu trouveras ci-joint ton classeur modifié.

J'ai appliqué le code ci-dessous :

Code:

[SIZE=2]Public [COLOR=navy]Sub[/COLOR] Recopie()
[COLOR=navy]Dim [/COLOR]C[COLOR=navy] As Integer[/COLOR]
      [COLOR=navy]With[/COLOR] Feuil1
            C = .Range("K1").[COLOR=navy]End[/COLOR](xlToRight).Offset(0, 1).Column
            .Columns("K:S").Copy Destination:=.Columns(C)
            .Range(.Cells(3, C + 1), .Cells(100, 256)).ClearContents
      [COLOR=navy]End With[/COLOR]
      
      [COLOR=navy]With[/COLOR] Feuil2
            .Columns("F:I").Copy
            .Range("F1").[COLOR=navy]End[/COLOR](xlToRight).Offset(0, 1).EntireColumn.Insert Shift:=xlToRight
            Application.CutCopyMode = [COLOR=navy]False[/COLOR]
      [COLOR=navy]End With
End[/COLOR] Sub[/SIZE]

Pour simplifier la gestion des formules en feuille 2, j'ai dû ajouter une colonne de séparation (vide) avant la colonne total et j'ai appliqué une simple formule de SOMME() dans cette dernière colonne. Cela te permet d'obtenir l'effet souhaité.

Bon courage pour la suite.
Cordialement,

 

Pièces jointes

• PourPetitHomme.zip

  17.9 KB · Affichages: 28

Vote positif 0 Vote négatif

petithomme

XLDnaute Occasionnel

• 11 Août 2006

• #25

Re : Aller a 9 cellules plus loin

Non et bien didier je te remerci du fond du coeur ! 😀

J'ai maintenant l'admiration de mon patron ! NON je blague !

Merci ca marche a merveille !


@ bientôt !

 

Vote positif 0 Vote négatif