Sujet Précédent Sujet Suivant

Probleme de programmation sur VBA

Résolu/Fermé
sylsyl36 Messages postés 11 Date d'inscription vendredi 27 septembre 2013 Statut Membre Dernière intervention 9 octobre 2013 - 27 sept. 2013 à 15:08
sylsyl36 Messages postés 11 Date d'inscription vendredi 27 septembre 2013 Statut Membre Dernière intervention 9 octobre 2013 - 4 oct. 2013 à 16:01
Bonjour,
Je souhaiterai créer une macro qui permettrait d'aller chercher toute les cellules : de AF25 jusqu'à AF338 dans l'onglet N-1 pour les insérer dans les cellules AE25 jusqu'à AE338 de l'onglet N. Je ne suis pas très doué, j'ai essayé avec ça :

Sub
Dim feuille
For feuille = 2 To ActiveWorkbook.Worksheets.Count
ActiveWorkbook.Sheets(feuille).Range("AE25:AE338").Value = ActiveWorkbook.Sheets(feuille - 1).Range("AF25:AF338").Value + 1
Next
End Sub

Malheureusement cela ne fonctionne pas. Si vous avez une solution à mon problème, merci de m'aider.
Cordialement

1 réponse

Réponse 1 / 1
Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
29 sept. 2013 à 00:49
Bonsoir,

Observe le code généré automatiquement si tu fais un copier-coller de la plage à la souris, tu devrais pouvoir l'adapter facilement.

A+
0
sylsyl36 Messages postés 11 Date d'inscription vendredi 27 septembre 2013 Statut Membre Dernière intervention 9 octobre 2013
30 sept. 2013 à 15:30
Ce que je ne comprends pas c'est que sa marche lorsque je ne copie qu'une cellule.
(à la fin de la 4eme ligne je me suis trompé: il n'y a pas ".value+1")
0
Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
30 sept. 2013 à 16:01
Observe le code généré automatiquement si tu fais un copier-coller de la plage à la souris, tu devrais pouvoir l'adapter facilement.

Quel est ton code désormais ?

A+
0
sylsyl36 Messages postés 11 Date d'inscription vendredi 27 septembre 2013 Statut Membre Dernière intervention 9 octobre 2013
1 oct. 2013 à 08:59
Sub
For feuille = 2 To ActiveWorkbook.Worksheets.Count
ActiveWorkbook.Sheets(feuille).Range("AE25:AE338").Value = ActiveWorkbook.Sheets(feuille - 1).Range("AF25:AF338")
Next
End Sub
0
Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
1 oct. 2013 à 13:46
Je m'obstine : Observe le code généré automatiquement si tu fais un copier-coller de la plage à la souris, tu devrais pouvoir l'adapter facilement.
0
sylsyl36 Messages postés 11 Date d'inscription vendredi 27 septembre 2013 Statut Membre Dernière intervention 9 octobre 2013
1 oct. 2013 à 15:45
Cela me donne :
Sub
Range("AF24:AF335").Select
Selection.Copy
Sheets("2").Select
ActiveSheet.Paste
End sub
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
programme qui n'affiche pas le mot secret
EMy.chev -
yg_be -

3 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
VBA : Range avec références variables..
Antoine -
MIKE59 -

7 réponses
VBA erreur 1004
séverine -
Floroan -

9 réponses