Besoin d'un peu de code VBA Excel 2007
Résolu/Fermé
Bonjour,
Pardonnez ma demande de novice en VBA, mais mes diverses recherches, malgré la simplicité de mon besoin, n'ont pas encore abouties.
Avec inputbox je fais renseigner, pour l'exemple, C3 de la valeur 20. Jusqu'ici je me débrouille.
Je souhaiterai selectionner A1:B3 et recopier cette sélection vers A4:B20, c'est à dire B + la concaténation de la valeur de C3.
Dans le genre : (qui ne fonctionne pas)
Selection.AutoFill Destination:=Range("A1:B" & [C3]), Type:=xlFillDefault
Range("A1:B" & [C3]).Select
mais en mieux.
Merci pour votre aide.
Pardonnez ma demande de novice en VBA, mais mes diverses recherches, malgré la simplicité de mon besoin, n'ont pas encore abouties.
Avec inputbox je fais renseigner, pour l'exemple, C3 de la valeur 20. Jusqu'ici je me débrouille.
Je souhaiterai selectionner A1:B3 et recopier cette sélection vers A4:B20, c'est à dire B + la concaténation de la valeur de C3.
Dans le genre : (qui ne fonctionne pas)
Selection.AutoFill Destination:=Range("A1:B" & [C3]), Type:=xlFillDefault
Range("A1:B" & [C3]).Select
mais en mieux.
Merci pour votre aide.
A voir également:
- Besoin d'un peu de code VBA Excel 2007
- Liste déroulante excel - Guide
- Save as pdf office 2007 - Télécharger - Bureautique
- Code ascii de a - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code puk bloqué - Guide
1 réponse
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 718
27 mars 2008 à 21:18
27 mars 2008 à 21:18
bonjour
Si j'ai compris ta problématique, tu ne peux pas utiliser autofill car tu as des formules différentes sur 3 lignes : A1:B3
Si par contre tu as tes formules dans A1:B1, tu peux utiliser :
[a1:b1].AutoFill Destination:=Range("a1:b" & [c3].Value)
Si j'ai compris ta problématique, tu ne peux pas utiliser autofill car tu as des formules différentes sur 3 lignes : A1:B3
Si par contre tu as tes formules dans A1:B1, tu peux utiliser :
[a1:b1].AutoFill Destination:=Range("a1:b" & [c3].Value)
31 mars 2008 à 11:37
Excuse ma réponse tardive, j'étais privé dePC en raison des vacances de mon épouse.
Tu as bien compris ma problématique. Comme c'est pour une petite appli sans importance, j'ai résolu le problème en définissant une plage fixe assez longue, et je supprime les lignes en trop en fonction de C3.
Merci de ta contribution.