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
A voir également:
- Sélection plage de données
- Fuite données maif - Guide
- Supprimer les données de navigation - Guide
- Trier des données excel - Guide
- Image de plage pix ✓ - Forum Google Chrome
- Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image d’ours polaire sur une image de plage. retrouvez l'image originale de la plage. que cache l'ours polaire ? - Forum Graphisme
2 réponses
Bonjour,
Commencer par le bas
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
