XL 2010 recherche et modification plage de données vba

chakershaker · 8 Février 2021

Bonjour forum, je cherche une méthode pour modifier une plage de données contenue dans feuil1 par bouton modifier contenue dans feuil2 .
l'ajout se fait selon le filtre date dans la cellule f3 (donc il faut chercher la plage de données correspond à la date sélectionnée puis la modifier)

Merci d'avance.

job75 · 8 Février 2021

Bonjour chakershaker,

D'après ce que je comprends :

VB:

Private Sub CommandButton1_Click()
Dim dat, tablo, i&
dat = [F3]
With Sheets("Feuil1")
    tablo = .Range("A1", .UsedRange).Resize(, 6) 'matrice, plus rapide
    For i = 1 To UBound(tablo) - 2
        If tablo(i, 6) = dat And tablo(i + 2, 1) = "Mois" Then Exit For
    Next
    If i = UBound(tablo) - 1 Then MsgBox "Date non trouvée !", 48: Exit Sub
    .Cells(i + 2, 1).CurrentRegion.EntireRow.Delete 'RAZ
    .Rows(i + 2).Resize([A5].CurrentRegion.Rows.Count).Insert 'insère des lignes vides
    [A5].CurrentRegion.EntireRow.Copy .Rows(i + 2) 'copier-coller
    .Visible = xlSheetVisible 'au cas où...
    Application.Goto .Cells(i, 1), True 'cadrage
    .Cells(i, 6).Select
End With
End...

job75 · 8 Février 2021

Bonjour chakershaker,

D'après ce que je comprends :

VB:

Private Sub CommandButton1_Click()
Dim dat, tablo, i&
dat = [F3]
With Sheets("Feuil1")
    tablo = .Range("A1", .UsedRange).Resize(, 6) 'matrice, plus rapide
    For i = 1 To UBound(tablo) - 2
        If tablo(i, 6) = dat And tablo(i + 2, 1) = "Mois" Then Exit For
    Next
    If i = UBound(tablo) - 1 Then MsgBox "Date non trouvée !", 48: Exit Sub
    .Cells(i + 2, 1).CurrentRegion.EntireRow.Delete 'RAZ
    .Rows(i + 2).Resize([A5].CurrentRegion.Rows.Count).Insert 'insère des lignes vides
    [A5].CurrentRegion.EntireRow.Copy .Rows(i + 2) 'copier-coller
    .Visible = xlSheetVisible 'au cas où...
    Application.Goto .Cells(i, 1), True 'cadrage
    .Cells(i, 6).Select
End With
End Sub

A+

chakershaker · 8 Février 2021

Bonjour, c'est exactement ça que je cherche. Merci beaucoup job75 pour votre aide.

XL 2010 recherche et modification plage de données vba

chakershaker

XLDnaute Junior

Pièces jointes

job75

job75

XLDnaute Barbatruc

Pièces jointes

chakershaker

XLDnaute Junior

Discussions similaires