Macro Excel pour inserer une ligne/colonne
Bonjour,
j'ai un programme Macro sur excel 2 feuilles (1ére masque de saisie, et la 2éme base de donnée) avec bouton enregistrer et modifier.
je souhaite insérer un ligne dans la 1ére feuille et une colonne dans la deuxième tout en gardant les premières fonction déjà préenregistrer.
Merci par avance pour votre aide.
Ci-joint une copie de mes macro déjà fait :
Private Sub CommandButton1_Click()
Dim Lign As Long, DrLig As Long
Dim NoSem As Integer
Dim Col As Byte, Lig As Byte
Dim Trouve As Range
Dim Plage As Range
Sheets("Masque de Saisie").Range("B7:P22").ClearContents
If Sheets("Masque de Saisie").Range("B3") = "" Then
MsgBox "Veuillez saisir un numéro de semaine en B3."
Exit Sub
ElseIf Not IsNumeric(Sheets("Masque de Saisie").Range("B3")) Then
MsgBox "Le numéro de semaine en B3 n'est pas un numéro valide."
Exit Sub
ElseIf Sheets("Masque de Saisie").Range("B3") <= 1 Or Sheets("Masque de Saisie").Range("B3") > 53 Then
MsgBox "Une année commence semaine 1 et se termine au maximum semaine 53. Changez le n° de semaine!"
Exit Sub
Else
NoSem = Sheets("Masque de Saisie").Range("B3")
End If
With Sheets("Retour")
.Range("A5").AutoFilter Field:=1, Criteria1:=NoSem
DrLig = .Range("A" & Rows.Count).End(xlUp).Row
Set Plage = .Range("A6:D" & DrLig)
Set Plage = Plage.Resize(Plage.Count - 1).SpecialCells(xlCellTypeVisible)
For Lign = Plage.Row To DrLig
Set Trouve = Sheets("Masque de Saisie").Rows(6).Find(.Cells(Lign, 2))
If Trouve Is Nothing Then
MsgBox "Une erreur de saisie dans les noms de clients!"
Exit Sub
Else
Col = Trouve.Column
End If
Set Trouve = Sheets("Masque de Saisie").Columns(1).Find(.Cells(Lign, 3))
If Trouve Is Nothing Then
MsgBox "La Semaine Sélectionné ne figure pas dans la base de données !"
Exit Sub
Else
Lig = Trouve.Row
End If
Set Trouve = Nothing
Sheets("Masque de Saisie").Cells(Lig, Col) = .Cells(Lign, 4)
Next
End With
End Sub
Private Sub CommandButton2_Click()
Dim Lign As Long
Dim NoSem As Integer
Dim Cel As Range, Trouve As Range, Plage As Range
Application.ScreenUpdating = False
With Sheets("Retour")
Set Trouve = .Columns(1).Find(Sheets("Masque de Saisie").Range("B2"))
End With
If Trouve Is Nothing Then
For Each Cel In Sheets("Masque de Saisie").Range("B8:P22")
If Cel.Value <> "" Then
With Sheets("Retour")
Lign = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & Lign) = Sheets("Masque de Saisie").Range("B2")
.Range("B" & Lign) = Sheets("Masque de Saisie").Cells(6, Cel.Column)
.Range("C" & Lign) = Sheets("Masque de Saisie").Cells(Cel.Row, 1)
.Range("D" & Lign) = Cel.Value
End With
End If
Next
Else
NoSem = Sheets("Masque de Saisie").Range("B3")
With Sheets("Retour")
.Range("A5").AutoFilter Field:=1
DrLig = .Range("A" & Rows.Count).End(xlUp).Row
For Lign = DrLig To 6 Step -1
If .Range("A" & Lign) = NoSem Then
.Rows(Lign).Delete
End If
Next
For Each Cel In Sheets("Masque de Saisie").Range("B8:P22")
If Cel.Value <> "" Then
Lign = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & Lign) = NoSem
.Range("B" & Lign) = Sheets("Masque de Saisie").Cells(6, Cel.Column)
.Range("C" & Lign) = Sheets("Masque de Saisie").Cells(Cel.Row, 1)
.Range("D" & Lign) = Cel.Value
End If
Next
End With
End If
Sheets("Masque de Saisie").Range("B7:P22").ClearContents
Application.ScreenUpdating = True
End Subpersonne ne veut m'aider !
Bonjour
Je veux bien t'aider mais ton histoire n'est pas très claire pour moi
titté a écrit :je souhaite insérer un ligne dans la 1ére feuille et une colonne dans la deuxième
Insérer où ça ?
Entre quelle et quelle ligne ?
En manuel, avec une macro ?
Mêmes questions pour la colonne
Ensuite tu filtres sur la colonne Année (Colonne A )avec comme critère le numéro de semaine !!!!!
Il faudrait donner un exemple pour faire fonctionner ton programme
A suivre
pour etre claire je veux que les données Année, soit repporté a la deuxième feuille en colonne 1.
et ajouté deux bouton, "inserer clienté et "inserer code" dasns la première feuille, tout en gardant les formules Macro ....