Sélection plage de données
seblg29
-
seblg29 -
seblg29 -
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
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
2 réponses
-
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 -
