Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Selection.autofill

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

spitfire378

XLDnaute Occasionnel
Bonjour a tous, voila j'ai une colonne contenant plusieurs valeurs, et dans celle tout de suite a droite je fais un calcul reprenant les valeurs de la premiere colonne. Ce que je voudrais, c'est pouvoir faire un selection.autofill de la deuxieme colonne jusqu'a la derniere valeur de la premiere colonne sachant que des valeurs en premiere colonne peuvent être rajoutés. Merci d'avance 🙂
 
Trier par date Trier par votes
Re : Selection.autofill

Bonjour,
Soit la colonne A avec tes valeurs et la colonne B avec le calcul à recopier vers le bas
Tu sélectionnes à partir de la cellule B2 et tu cherches la dernière cellule remplie en en colonne A, puis te te décales (offset) de 1 colonne pour sélectionner la plage de la colonne B où tu dois recopier tes formules.

Code: 
    Range([B2], [A65536].End(xlUp).Offset(0, 1)).Select
    Selection.FillDown
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
 
Vote positif 0 Vote négatif
Re : Selection.autofill

Merci Renauder, la formule marche nikel pour pas mal de mes formules mais dans certains cas VBA m'indique des erreurs au niveau du pastespecial.

Dans la feuille ci-jointe, j'ai deux dates, je souhaite calculer la différence en jours entre ces deux dates donc je calcul la différence la pas de probleme, par contre ta formule ne marche pas je ne comprends pas pourquoi, et aussi autre probleme est-il possible de ne pas faire le calcul dans les cellules ou il n'y a pas de dates renseignées. Merci 🙂
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Selection.autofill

Alors la je ne comprends pas des que je test dans votre classeur ca marche parfaitement, j'adapte le code a mon classeur et la toujours cette erreur au niveau du pastespecial.

Code: 
'/////////////////////////Copie des dates pour durée moyenne de séjour/////////////////////////

'///////////////Copie date d'entrée//////////////////

Windows("Premier Classeur.xls").Activate

Sheets("clients").Select

Range("I3:I" & [I65000].End(xlUp).Row).Select

Selection.Copy

Windows("Accueil.xls").Activate

Sheets("Feuil2").Select

Range("AN2").Select

Selection.PasteSpecial

'//////////////////Copie Date Sortie/////////////////

Windows("Premier Classeur.xls").Activate

Sheets("Clients").Select

Range("AV3:AV" & [AV65000].End(xlUp).Row).Select

Selection.Copy

Windows("Accueil.xls").Activate

Sheets("Feuil2").Select

Range("AO2").Select

Selection.PasteSpecial


'////////////////Calcul Durée Moyenne entre date entrée/Sortie/////////////

Range("AP2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]="""","""",RC[-1]-RC[-2])"
Range([AP2], [AN65536].End(xlUp).Offset(0, 2)).Select
Selection.FillDown
Selection.Copy
[COLOR="Yellow"]Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False[/COLOR]
Application.CutCopyMode = False
 
Vote positif 0 Vote négatif
Re : Selection.autofill

Bonjour Renauder et bien en faite j'ai conservé la partie suivante de ton code :

Code: 
Range("AU2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]="""","""",RC[-1]-RC[-7])"
Range([AU2], [AT65536].End(xlUp).Offset(0, 2)).Select
Selection.FillDown

Et ca marche parfaitement 🙂

Par contre je ne comprends pas trop la syntaxe IF(RC[-1]="""","""", tu testes si il n'y a rien dans la cellule a gauche de la cellule active?

Et autre question la ca marche parfaitement, si aucune date n'est renseignée dans la deuxieme colonne, pas de calcul de durée. Est-ce que c'est possible de faire de même avec la premiere colonne?

Merci 🙂
 
Vote positif 0 Vote négatif
Re : Selection.autofill

Bonjour,
Je teste si une date est présente dans la colonne B.
Si tu veux ne pas faire de calcul dans le cas ou la colonne B est remplie et pas la colonne A, il faut changer la formule.

On rajoute un OU (OU A1=vide OU B1=Vide)
Code: 
    ActiveCell.FormulaR1C1 = "=IF(OR(RC[-2]="""",RC[-1]=""""),"""",RC[-1]-RC[-2])"
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Résolu(e)
XL 2021 Verrouillage de cellules après exécution d'une macro
2
Réponses
23
Affichages
1 K
MATLEA
M
L
  • Résolu(e)
Microsoft 365 RechercheV avec une condition poids
2
Réponses
16
Affichages
338
Lina
L
C
  • Question Question
Microsoft 365 Fonction si
Réponses
7
Affichages
190
Cathel
C
H
  • Question Question
XL 2019 Masquer des lignes sous condition en vba
Réponses
8
Affichages
274
job75
Y
  • Résolu(e)
XL 2016 Calculs automatique XO pour des valeurs dans un tableau
Réponses
3
Affichages
119
dysorthographie
B
  • Résolu(e)
Microsoft 365 Calcule durée moyenne : Formule et TCD
Réponses
6
Affichages
285
BSF
B
N
  • Résolu(e)
Microsoft 365 Hyperlink d'après valeur TCD
Réponses
11
Affichages
385
NikonvsWild
N
P
  • Question Question
Microsoft 365 Mettre en surbrillance les trois cellules avec les plus grandes valeurs
Réponses
4
Affichages
284
Perceval973
P
B
  • Question Question
XL 2021 Formule suivi de data
Réponses
13
Affichages
496
Dand87
D
A
  • Résolu(e)
Microsoft 365 Demande d'aide sur des extractions de lignes
Réponses
7
Affichages
396
agayet
A
  • Question Question
Microsoft 365 Fonction Produit sur plages de cellules de différentes longueurs
Réponses
13
Affichages
885
Jean-Eric
F
  • Question Question
XL 2016 Graphique avoir des blancs en non des valeurs à 0 quand la donnée est vide
Réponses
4
Affichages
248
JHA
J
W
  • Question Question
Microsoft 365 Macro pour un bilan fonctionnement coloré
Réponses
3
Affichages
122
sylvanu
C
  • Question Question
XL 2019 Tableau Excel
Réponses
4
Affichages
259
Caller
C
F
  • Question Question
XL 2016 Transformation fichier
Réponses
6
Affichages
307
Cousinhub
N
  • Question Question
XL 2010 creer une base de donnée
2
Réponses
15
Affichages
764
n_turf
N
A
  • Question Question
Autres Excel 2007 Recherche dans plusieurs feuilles INDEX EQUIV INDIRECT DECALER
Réponses
3
Affichages
255
AD74
A
  • Question Question
XL 2016 copie de donnees horizontale en verticale
2
Réponses
25
Affichages
953
job75
  • Question Question
XL 2016 graph avec 2 tcd
Réponses
5
Affichages
223
Hecatonchire
H
A
  • Question Question
XL 2010 Enregistrer en PDF
Réponses
2
Affichages
421
Appo1985
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…