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

Probleme de code VBA

  • Initiateur de la discussion Initiateur de la discussion Seb c bien !
  • 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 !

S

Seb c bien !

Guest
Bonjour au forum,

j'ai tenté de bricoler un code pour me permettre de coller dans la colonne C
l'une en dessous des autres les données en I (cette colonne sera caché par
la suite)… le seul hic, c'est que cela ne marche pas comme je voudrais.

Merci d'avance

le code >
Sub COPIER_IMMAT()

Dim NomFeuille As String

NomFeuille = 'DONNEES'
NumLigne = Sheets(NomFeuille).Range('B65536').End(xlUp).Row + 1
Sheets(NomFeuille).Cells(NumLigne, 3) = Range('I4').Value

NumLigne = Sheets(NomFeuille).Range('B65536').End(xlUp).Row + 1
Sheets(NomFeuille).Cells(NumLigne, 3) = Range('I5').Value

End Sub

Signé Seb c bien ! :whistle: [file name=PROBLEME DE CODE VBA_20050331220532.zip size=7654]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PROBLEME DE CODE VBA_20050331220532.zip[/file]
 

Pièces jointes

Bonjour

voila un exemple de code fonctionnel, méfie toi de ton fichier, il comporte des données en C42 C43 (sous les textbox) qui faussent le comportement.

Cordialement, A+

Sub COPIER_IMMAT()

Dim NomFeuille As String, Compteur As Long

NomFeuille = 'DONNEES'
For Compteur = 4 To 6 'les lignes de I
Sheets(NomFeuille).Range('C65536').End(xlUp).Offset(1, 0).Value = Sheets(NomFeuille).Range('I' & Compteur).Value
Next Compteur

End Sub
 
- 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

Réponses
5
Affichages
604
Réponses
1
Affichages
321
Réponses
4
Affichages
721
Réponses
15
Affichages
760
Réponses
5
Affichages
898
  • Question Question
Microsoft 365 Code VBA
Réponses
10
Affichages
1 K
Réponses
4
Affichages
751
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…