Bonjours à tous
Voici mon petit problème. Je cherche à savoir comment lier des lignes sur des feuilles séparées sous une certaine condition.
J'ai écris une macro pour écrire dans une feuille tableau et dans une feuille "Choisy" si une certaine condition est rempli. Ma question est la suivante peut supprimer automatiquement dans la feuille "Choisy" si je la supprime dans la feuille "tableau"
Voici le code VBA pour reporter la ligne.
If DITB.Value = "" Then
MsgBox ("Il n'y a pas de numero de DI")
End If
Sheets("Tableau").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = DITB.Value
ActiveCell.Offset(0, 1) = adTB.Value
ActiveCell.Offset(0, 2) = CommunesCB.Value
ActiveCell.Offset(0, 3) = depotTB.Value
ActiveCell.Offset(0, 4) = listCB.Value
ActiveCell.Offset(0, 5) = codeTB.Value
If depotTB.Value = "Choisy" Then
Sheets("Choisy").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = DITB.Value
ActiveCell.Offset(0, 1) = adTB.Value
ActiveCell.Offset(0, 2) = CommunesCB.Value
ActiveCell.Offset(0, 3) = listCB.Value
ActiveCell.Offset(0, 4) = codeTB.Value
Sheets("Tableau").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
End If
Merci d'avance à tous.
Voici mon petit problème. Je cherche à savoir comment lier des lignes sur des feuilles séparées sous une certaine condition.
J'ai écris une macro pour écrire dans une feuille tableau et dans une feuille "Choisy" si une certaine condition est rempli. Ma question est la suivante peut supprimer automatiquement dans la feuille "Choisy" si je la supprime dans la feuille "tableau"
Voici le code VBA pour reporter la ligne.
If DITB.Value = "" Then
MsgBox ("Il n'y a pas de numero de DI")
End If
Sheets("Tableau").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = DITB.Value
ActiveCell.Offset(0, 1) = adTB.Value
ActiveCell.Offset(0, 2) = CommunesCB.Value
ActiveCell.Offset(0, 3) = depotTB.Value
ActiveCell.Offset(0, 4) = listCB.Value
ActiveCell.Offset(0, 5) = codeTB.Value
If depotTB.Value = "Choisy" Then
Sheets("Choisy").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = DITB.Value
ActiveCell.Offset(0, 1) = adTB.Value
ActiveCell.Offset(0, 2) = CommunesCB.Value
ActiveCell.Offset(0, 3) = listCB.Value
ActiveCell.Offset(0, 4) = codeTB.Value
Sheets("Tableau").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
End If
Merci d'avance à tous.