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
- Barre de données excel pourcentage 100 ✓ - Forum Excel
- Service de diffusion de données - Forum TNT / Satellite / Réception
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