Demande de renseignements ma macro ,e fonctionne pas

Résolu
DOLCE59 Messages postés 12 Statut Membre -  
 archer -
Bonjour, je souhaite inséré une ligne vide si K=1

Pouvez-vous me dire se qui ne va pas ?

Un grand merci d'avance. 

 Sub VISON()
VISON Macro
    Dim FinTabl As Integer
    Dim L As Integer
    Application.ScreenUpdating = False
    FinTabl = Sheets("Feuil8").Range("A65535").End(xlUp).Row
    For L = 3 To FinTabl
    If Sheets("Feuil8").Range("K" & L).Value = 1 Then
    Sheets("Feuil8").Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    End If
    Next L
    Application.ScreenUpdating = True
End Sub


Configuration: Windows / Chrome 86.0.4240.111

3 réponses

  1.
    yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 588
     
    bonjour,
    peut-être 
    Rows(L)
    au lieu de 
    Selection
    ?
    0
    1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588
       
      sachant que l'insertion de ligne vide va invalider la valeur de FinTabl .
      ne peux-tu pas utiliser une autre technique pour détecter la fin de la zone à traiter?
      ou commencer par le bas?
      0
    2. DOLCE59 Messages postés 12 Statut Membre > yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention  
       
      Bonjour,
      comment fait avec une autre technique pour détecter le fin de la zone par le bas ?
      Merci beaucoup
      0
    3. DOLCE59 Messages postés 12 Statut Membre > yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention  
       
      Bonjour,
      Merci pour ton retour mais hélas cela ne fonctionne pas, rien ne se passe.
      0
    4. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588 > DOLCE59 Messages postés 12 Statut Membre
       
      peut-être en s'arretant quand il n'y a plus de données?
      ou travailler de bas en haut au lien de haut en bas.
      0
    5. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588 > DOLCE59 Messages postés 12 Statut Membre
       
      peux-tu partager ton fichier?
      0
  3. archer
     
    Bonjour
    voila un test a toi de voir 

    Sub VISON()
    Dim FinTabl As Long
    Dim L As Long
    Sheets("Feuil8").Select
        Application.ScreenUpdating = False
        FinTabl = Range("A65535").End(xlUp).Row
        For L = FinTabl To 3 Step -1
            If Range("K" & L).Value = 1 Then
                Rows(L + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove ' ou Rows(L) pour ligne vide au dessus
            End If
        Next L
    End Sub

    A+
    Maurice
    0

Discussions similaires

Comment écrire à, é, è, ç ê en majuscule ... ?
Peggynus -
jeanbern -

7 réponses
je voudrais récupérer mon adresse e mail
clobel -
Lucio -

19 réponses
Kman metre le "e" en exposant dans un do
rachel49 -
manon1312 -

6 réponses
COMMENT METTRE UN INDICE OU UN EXPOSANT
RESTANQUE83 -
m@rina -

5 réponses
J'ai désinstallé par erreur E/S en série Intel
charleston -
jeannets -

5 réponses