voici la macro qui ce trouve dans mon fichier joins
Private Sub CommandButton1_Click()
'aiglon74
'--- Déclaration des variables
Sheets("base").Visible = False
Sheets("base").Activate
For ln = 7 To Range("B" & Rows.Count).End(xlUp).Row
f = Left(Range("B" & ln), 1)
l = Mid(Range("B" & ln), 2, 1)
c = Right(Range("B" & ln), 1)
v = Range("C" & ln).Text & Chr(10) & Range("D" & ln).Text & Chr(10) & Range("E" & ln)
ld = Sheets(f).Range("B1:L1").Find(c).Column
Sheets(f).Cells(Val(l) + 1, ld).Value = v
Next ln
Dim I As Integer
Dim Feuille() As Variant
Dim NbFeuille As Integer
'Action quand on clique sur le Bouton "Créer"
'--- Déclaration des variables
For I = 1 To 9
If Me.Controls("CheckBox" & I) = True Then
Exit For
End If
Next I
If I = 10 Then
MsgBox "Il faut choisir au moins 1 tiroir"
Exit Sub
End If
'--- Impression des onglets sélectionnés
For I = 1 To 9
If Me.Controls("CheckBox" & I) = True Then
ReDim Preserve Feuille(NbFeuille)
Feuille(NbFeuille) = Me.Controls("CheckBox" & I).Caption
NbFeuille = NbFeuille + 1
End If
Next I
Unload Me
Application.ScreenUpdating = False ' Interdit le raffraichissement écran
'--- Impression des feuilles listées
For I = 0 To UBound(Feuille)
Sheets(Feuille(I)).Visible = True
Next I
With Sheets(Feuille)
.PrintPreview
End With
For I = 0 To UBound(Feuille)
Sheets(Feuille(I)).Visible = False
Next I
Range("B2:L9").Select 'efface les cellules supprimées
Selection.ClearContents
Application.ScreenUpdating = True ' Autorise le raffraichissement écran
UserForm4.Show ' Affiche l'Userform
End Sub
une MCF sur feuil D par rapport a une cellule d'une autre feuil (BASE)
je crois que ce n'est pas possible