Programmation VBA

Dranreb

XLDnaute Barbatruc

• 6 Décembre 2013

• #2

Re : Programmation VBA

Bonjour.
Essayez comme ça :

VB:

With Feuil.Cells(Rows.Count, "D").End(xlUp)
   .Offset(1).Resize(Feuil.Cells(Rows.Count, "F").End(xlUp).Row - .Row).FormulaR1C1 _
      = .FormulaR1C1: End With

Avec Feuil une expression Worksheet représentant la feuille concernée, pouvant être omise ainsi que le point qui la suit s'il s'agit soit de celle à laquelle est attaché le module dans lequel se trouve ce code, soit la feuille active dans tous autres contextes.

 

Vote positif 0 Vote négatif

A

alex44510

Guest

• 6 Décembre 2013

• #3

Re : Programmation VBA

Bonjour,

Merci pour ta reponse:

With Worksheets("Demande SEO").Cells(Rows.Count, "D").End(xlUp)
.Offset(1).Resize(Worksheets("Demande SEO").Cells(Rows.Count, "F").End(xlUp).Row - .Row).FormulaR1C1 _
= .FormulaR1C1:
End With

J'ai essayé ceci mais rien ne se passe..

Fichier cijoint

Ce lien n'existe plus

Merci pour ton aide

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 6 Décembre 2013

• #4

Re : Programmation VBA

La colonne F de votre feuille "Demande SEO" est vide. Que voudriez vous que ça fasse à part planter ?

 

Vote positif 0 Vote négatif

A

alex44510

Guest

• 6 Décembre 2013

• #5

Re : Programmation VBA

Dans l'onglet "Redirection Moteur Interne" : L'utilisateur à la possibilité de remplir les Ranges (C15:C100) et (F15:F100). Une fois remplis il peut validé se demande (bouton validé).

Une fois la validation la Range(C15:100) est Couper/Coller en colonne F sur l'onglet "Demande SEO".

Ce que je veux c'est: copier/coller la cellule C5 (onglet "Redirection Moteur Interne") à la dernière ligne+1 de la colonne D (onglet "Demande SEO") & faire recopier vers le bas jusqu’au numero de la derniere ligne de la colonne F (onglet "Demande SEO").

Dsl pour mes explication assez flou

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 6 Décembre 2013

• #6

Re : Programmation VBA

oui mais si la colonne F est vide elle n'a pas de dernière ligne renseignée. Si c'est la dernière ligne renseignée d'une aitre colonne spécifiez ça à la place de Feuil.Cells(Rows.Count, "F").End(xlUp).Row

 

Vote positif 0 Vote négatif

A

alex44510

Guest

• 6 Décembre 2013

• #7

Re : Programmation VBA

Ok je comprend merci beaucoup

 

Vote positif 0 Vote négatif