Sélection plage de données Fermé

Question

Bonjour, 

Je souhaite sélectionner un plage de données issue d'une instruction et d'une boule for,
afin d'insérer une ligne de cellules "au dessus".

Cependant, mon code n'est pas correct, le voici

Spectra = ActiveSheet.Name

i = 29000

For j = 6 To i

    If Worksheets(Spectra).Cells(j, 57).Value = 1 Then
        Worksheets(Spectra).Cells(j, 57).Select

        Dim MaPlage As Range
        Set MaPlage = Range(Cells(j, 1), Cells(j, 57))
        Range("MaPlage").Select
        Selection.Insert Shift:=xlDown
        
    Worksheets(feuille).Cells(ligne2, colonne).Select
    ActiveCell.FormulaR1C1 = "=IF(RC[1]-RC[-56]=0,0,1)"
           
       Else
    End If
Next

Est ce que quelqu'un aurait une idée pour m'aider ?

Vous en remerciant par avance,

Sebastien
Configuration: Windows / Internet Explorer 11.0

f894009 · Answer

Bonjour,

Commencer par le bas

Sub test()
    Spectra = ActiveSheet.Name
    i = 29
    For j = i To 6 Step -1
        With Worksheets(Spectra)
            If .Cells(j, 7).Value = 1 Then
                .Range(.Cells(j, 1), .Cells(j, 7)).Insert Shift:=xlDown
                '--------------- ??????? --------------
                Worksheets(feuille).Cells(ligne2, colonne).Select
                ActiveCell.FormulaR1C1 = "=IF(RC[1]-RC[-56]=0,0,1)"
                '---------------
            End If
        End With
    Next j
End Sub

seblg29 · Answer

C'est bon ca fonctionne merci !

Sélection plage de données

2 réponses

Discussions similaires