vba Résolu

Question

Bonjour,
je souhaite copier des cellules d'une feuille A et les coller sur une feuille B, jusque là rien de bien compliqué
mais je voudrais que le collage se fasse à partir d'une cellule précise, donc je dois rendre la cellule concernée active 
mais je n'y arrive pas.
merci de m'aider

Polux31 · Answer

Bonjour,

En plaçant dans le code à l'endroit voulu, pour activer la cellule C3 de la feuille 1 :

Worksheets("Feuil1").Range("C3").Select
;o)

Polux31 · Answer

De rien, n'oublie pas de mettre le sujet résolu

;o)

Polux31 · Answer

Bonjour,

Comment déclenches-tu tes copies de cellules ?

Polux31 · Answer

Peux tu mettre ton fichier sur https://www.cjoint.com/ et mettre le lien ici. Enlève les données sensibles, seul le code m'intéresse. Si le fichier fait plus de 500 ko, il faut le compresser.

Merci

Polux31 · Answer

Ca ne me dit pas comment la procédure remplir() est appelée.

Pourquoi ne pas mettre cettre procédure dans un module indépendant ?

Ensuite plutôt que "Worksheets("tableau").Select",  j'opterai pour "Worksheets("tableau").Activate".

Je ferai également :
Worksheets("tableau").Range("B2: B" & total_7_bis).Copy 
Worksheets("new tab").Range("B7").PasteSpecial

;o)

Polux31 · Answer

Dans l'éditeur VB, faire Insertion > Module

usdy · Answer

par contre si je mets mes procédures dans un module, je serais alors obligée de les appeler pour qu'au lancement de la macro elles puissent générer le résultat attendu ?

Polux31 · Answer

Oui, d'où ma question. Comment est déclenchée cette procédure ???

usdy · Answer

j'appelle jamais les procédures que je créee. pour verifier si elles sont sans erreur, je fais le debogage pas à pas et quand je lance la macro elles sont appelées automatiquement.
Mais je trouve ça un peu bizarre pck dans les autres langages comme java, c ou c++ d'habitude la procédure doit être appelée

Polux31 · Answer

Dans tous les langages informatique, une procédure ou une fonction est forcément appelée. Sauf dans le cas d'un main() qui est la procédure de lancement d'un programme.

Polux31 · Answer

Ben voilà, tu l'as fait :O))

Tu lances la procédure en te servant du menu Visual Basic dans les barres de menu Excel, ou par un raccourci.

Dans ce cas, la macro doit se trouver dans un module indépendant et non sur le module d'un feuille, réservé pour l'initialiser le cas échéant lors de son activation.

Attention, Excel n'est pas un outil de développement. Les macros servent uniquement à automatiser des tâches complexes ou répétitives.

;o)

Polux31 · Answer

Je ne comprends pas trop. Comment est créée cette feuille ? avec un code VBA ou avec les fonctions Excel ?

Polux31 · Answer

Peux-tu mettre ton code ici, stp ?

Polux31 · Answer

il faut faire :

Dim a As Range
Dim plage As Range

Set plage = Worksheets(1).Range("E" & val1 & ":E" & val2)
   For Each a In plage
      '...
   Next a
Set plage = Nothing
;o)

Polux31 · Answer

Quel est le type de resultat1 ? Si c'est un entier, fait :
resultat1 = resultat1 + Cint(a.Value)

Polux31 · Answer

De rien,

Il n'y a pas de questions bêtes. Bien souvent ceux sont les réponses qui sont bêtes !!!

Bon courage pour la suite et n'hésite pas à revenir.

;o)

PS: Pense à mettre résolu pour ce sujet.

Polux31 · Answer

Bonjour,

Une question peut être bête : Pourquoi faire un autofilter pour faire un test ensuite sur des valeurs ? L'autofilter ne change pas le numéro des lignes, il cache les numéros de ligne non affectés par le filtre.

;o)

Polux31 · Answer

en faisant:

Worksheets(1).AutoFilterMode = False


;o)

Polux31 · Answer

Je pense que la boucle doit se faire sur toutes les lignes, même celles cachées. Je ne suis pas sûr à 100% et je ne peux pas le vérifier à mon boulot.

Tu peux avoir peut être une explication sur le site de developpez.com, dans l'onglet MSOffice tu as la faq Excel. Il se peut que tu trouves ton bonheur.

;o)

Polux31 · Answer

je regarderai ça ce soir, mais je pense qu'il y a un autre moyen que de passer par les filtres.

@ +

;o)

Polux31 · Answer

De rien, mais tu ne m'as pas dérangé pour rien ... la preuve, tu as trouvé la solution ^^

Bon courage.

;o)

Vba

21 réponses

Votre réponse

Discussions similaires

Newsletters