Sélection plage de données

Fermé

seblg29 - 15 avril 2017 à 14:56
seblg29 - 18 avril 2017 à 22:11

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

A voir également:

Sélection plage de données
Reinstaller windows sans perte de données - Guide
Effacer les données de navigation - Guide
Outil selection illustrator ne fonctionne pas ✓ - Forum Illustrator
Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image de manchots sur une image de plage. retrouvez l'image originale de la plage. que cachent les manchots ? - Forum Graphisme
Tnt base de données vide ✓ - Forum TNT / Satellite / Réception

2 réponses

Réponse 1 / 2

f894009 Messages postés 17190 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 16 mai 2024 1 705
16 avril 2017 à 09:58

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

Réponse 2 / 2

seblg29
18 avril 2017 à 22:11

C'est bon ca fonctionne merci !

Discussions similaires

Retrouver l'image originale après avoir fait des modifications ?

"L'indice n'appartient à la sélection" + VBA

Sur la plage...

Exemple de base de données access

je tombe sur le service de diffusion des donnees?que faire?

Discussions similaires

Newsletters