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

VBA code boucle jusqu'a une ligne donnée

  • Initiateur de la discussion Initiateur de la discussion Rom1
  • Date de début Date de début

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 !

Rom1

XLDnaute Nouveau
Bonjour,

J'ai un petit soucis sur un code VBA, j'ai suite à un UserForm, ou il y à deux zones de texte
(un s'appelle T_B l'autre T_C) .
Je souhaite que ce texte saisie aille ce coller dans une colonne donné, et que l'opération continue jusqu'à la dernière ligne non vide de la colonne D.

Par exemple :
La colonne D à des infos jusqu’à la ligne 15.
Copie de la valeur de T_B dans la colonne B de B2 : B15
Copie de la valeur de T_C dans la colonne C de C2 : C15

Mais je veux qu'il me détecte la dernière cellule non vide de C automatiquement..
J'espère avoir était clair, voici mon code : (en rouge la ou ça pose problème)

__________________

Sub Test1(ByVal T_B As Variant, ByVal T_C As Variant)

If T_B = "" Or T_C = "" Then Exit Sub

Range("B62536").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = T_B

Range("C62536").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = T_C

Dim d As Variant

d = Range("D65536").End(xlUp).Row.Count

Range("C62536").End(xlUp).Offset(1, 0).Select
Selection.AutoFill Destination:=Range("C2:C" & d & "")


End Sub

__________________

Merci par avance,
Bonne journée
Rom1
 
Dernière édition:
Re : VBA code boucle jusqu'a une ligne donnée

Bonjour,

si la source à copier est en C2 :
Code:
Range("C2").AutoFill Destination:=Range("C2:C" & range("D65536").End(XlUp).Row )

bon après midi
@+
 
- 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

Réponses
3
Affichages
265
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…