Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.
  • Initiateur de la discussion Initiateur de la discussion breizh3
  • 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 !

B

breizh3

Guest
Bonjour,
Voila je me suis lancé dans ma première macro, mais la je sèche.
mon but est simple lorsque la valeur de ma colonne Q en feuil 1103 est inférieur a 0 je voudrais qu íl me remplisse la feuil dec 13
avec la macro que j’ai fais il trouve bien les valeurs mais je n'arrive pas a sélectionner que les colonnes dont j'ai besoin et je ne veut copier que les valeurs
macro:
Sub copier()

Dim ligne As Long
With Sheets("1103")
For ligne = 2 To .Range("A" & Rows.Count).End(xlUp).Row
If .Range("Q" & ligne) > 0 Then
.Range("A" & ligne & ":N" & ligne).Copy _
Sheets("DEC 13").Cells(Rows.Count, 1).End(xlUp)(2).Resize(, 3)
End If
Next ligne
End With
End Sub

Merci pour votre aide
 

Pièces jointes

Re : Debutant Macro

Re


Si tu lances la macro quand tu es sur la feuille 1103, qu'affiche le MsgBox?

EDITION
: Je viens de voir que ton fichier exemple, les colonnes A et B sont masquées
Quand tu les affiches, on voit que la dernière cellule non vide est A26
Donc voilà qui explique le 26 😉

Donc il faudrait modifier la colonne dans cette partie de la macro
Range("C" & Rows.Count).End(xlUp).Row et non pas A
 
Dernière édition:
- 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
15
Affichages
788
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…