Etirer la formule de plusieurs lignes jusqu'en bas de mon tableau

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Etirer la formule de plusieurs lignes jusqu'en bas de mon tableau

val_ou

Bonjour le forum!

Je vous expose mon problème:
J'ai un tableau excel avec des données qui sont collées avec une macro. Les dernière colonnes de mon tableau sont des formules que j'étire à la main, et j'aimerais que la macro le fasse à ma place.
J'ai déclaré des variables car mon nombre de ligne change dès que la macro colle les données (une fois par mois).
J'ai adapté le code que j'ai obtenu grâce à l'enregistreur avec mes variables, mais ça ne fonctionne pas.

Ci dessous le code "manuel" :

Code :

Range("AO39178" ).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.AutoFill Destination:=Range("AO39178:CK39834" )
Range("AO39178:CK39834" ).Select

Et voici mon code adapté qui ne fonctionne pas à cause des Range("variables" ) :

Code :

Range("AO3" ).End(xlDown).Select
Set cell1 = ActiveCell
Range("A3" ).End(xlDown).Select
ActiveCell.Offset(0, 88).Select
Set cell2 = ActiveCell
cell1.Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.AutoFill Destination:=cell1: cell2 , Type:= _
xlFillDefault
Range("cell1:cell2" ).Select

Merci par avance à tous!

Publicité

Marc L

Bonjour,

" mais ça ne fonctionne pas " ? Oui mais encore ? Sans explication claire …

Sinon retirer tous ces affreux .Select inutiles et source de ralentissement et voir même de problème ‼

Ligne n° 4 : A3 ?

Ligne n°10 : lire l'aide et l'exemple de la méthode AutoFill ne ferait pas de mal notamment pour son argument Destination …

Ligne n°12 : aberrante ‼ Les guillemets servent à encadrer du texte, non ?!

Message édité par Marc L le 28-08-2013 à 12:14:34

val_ou

C'est justement ces variables qui ne fonctionnent pas puisque les guillemets ne servent pas à les encadrer.

val_ou

Bon et bien pour ceux que ça intéressent, j'ai résolu mon problème.
Voilà le code qui fonctionne :

Code :

Dim NbLignes
NbLignes = ActiveSheet.UsedRange.Rows.Count
Range("AO3:CL3" ).Select
selection.AutoFill Destination:=Range("AO3:CL" & NbLignes), Type:=xlFillDefault
Range("AO3:CL" & NbLignes).Select

Marc L

Bien mais ce serait bien mieux sans .Select …

Mais NbLignes est faux si la première ligne utilisée n'est pas la première de la feuille …

Message édité par Marc L le 30-08-2013 à 11:07:06

val_ou

Il faudrait mettre activate à la place de select?

Je ne comprends l'erreur dans NbLignes

Marc L

Nan !

Toujours associer directement la méthode à l'objet : Range("AO3:CL3" ).AutoFill …

Sinon à partir d'un classeur vierge, saisir une donnée en K11 puis une autre en P20 : NbLignes sera à 10 et non pas à 20 …

Pas de souci donc avec NbLignes si la première ligne utilisée est bien la ligne n°1 de la feuille, sinon …

Message édité par Marc L le 02-09-2013 à 12:56:05

val_ou

Merci pour le conseil sur le .Select qui se répète avec le Selection; je ne savais pas qu'on pouvait tout coller afin d'éliminer les lignes superflues

Marc L

Ton code se résume donc ainsi sans souci du nombre de lignes :

Code :

With ActiveSheet.UsedRange
[AO3:CL3].AutoFill Range("AO3:CL" & .Rows(.Rows.Count).Row)
End With

val_ou

Merci pour ton aide Marc! :hello:

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Etirer la formule de plusieurs lignes jusqu'en bas de mon tableau

Sujets relatifs
Boucle FOR et tableau	vérification présence valeur dans tableau associatif
php problème tableau suite requête MySQL [résolu]	mail html tableau décalé
Basculer automatiquement entre plusieurs logiciels	Supprimer plusieurs membres de ma base de données
remplir un tableau HTML avec des variables JS	Renommer des WP et Parts sur plusieurs niveaux
séparateur espace sélection tableau	Recherche de valeur dans un tableau dynamique
Plus de sujets relatifs à : Etirer la formule de plusieurs lignes jusqu'en bas de mon tableau

Page générée en 0.064 secondes