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 !

R

Rom1

Guest
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 modification par un modérateur:
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…