Microsoft 365 Copier info feuille 1 en 2

  • Initiateur de la discussion Initiateur de la discussion walido78
  • 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 !

walido78

XLDnaute Nouveau
Bonjour,
Je viens de créer un fichier excel avec plusieurs macros, et j'ai éventuellement la possibilité d'ajouter plusieurs lots sur la feuille 1, avec une cellule contenant deux checkbox Retenue : Oui ou Non). J'ai donc un problème avec ma macro parce qu'elle n'est pas tout a fait fonctionnelle:
1) Je veux que quand une personne Coche oui, les informations sur cette ligne soit copié sur la ligne similaire dans la feuille 2.(Et du coup si elle coche non, que le lot n'apparait pas dans la feuille 2)
2) A chaque fois que quelqu'un appuis sur le bouton ajouter un lot une ligne s'ajoute AVEC un calendrier et deux checkbox (oui et non)
J'ai testé cette macro mais elle n'est pas top:
Macro pour copier sur feuille 2 (elle recopie tout et non pas la première ligne):

Sub Casdoption130_Cliquer()
Dim WsS As Worksheet, WsC As Worksheet
Dim Cel As Range, C As Range
Dim LigneAjout As Long
Set WsS = Worksheets("ENT_BET")
Set WsC = Worksheets("Retenue")
Set LC = WsS.Range("B3:B3" & WsS.Range("B" & Rows.Count).End(xlUp).Row)
Set C = WsC.Columns(1).Find(LC, , xlValues, xlWhole)
LigneAjout = WsC.Range("B" & Rows.Count).End(xlUp).Row + 1
If Not C Is Nothing Then
LC.Resize(, 16).Copy WsC.Range("B" & C.Row)
Else
LC.Resize(, 16).Copy WsC.Range("B" & LigneAjout)
LigneAjout = LigneAjout + 1
End If

Set C = Nothing: Set WsS = Nothing: Set WsC = Nothing
End Sub

Macro : ajouter un lot:
Sub Bouton135_Cliquer()
Range("B4:G4").Select
Selection.EntireRow.Insert
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
End Sub

Merci d'avance pour votre aide
 

Pièces jointes

- 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
4
Affichages
332
Réponses
9
Affichages
367
Réponses
1
Affichages
452
Réponses
0
Affichages
367
Retour