Demande de renseignements ma macro ,e fonctionne pas

Résolu
DOLCE59 Messages postés 11 Date d'inscription   Statut Membre Dernière intervention   -  
 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
A voir également:

3 réponses

Réponse 1 / 3
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
bonjour,
peut-être 
Rows(L)
au lieu de 
Selection
?
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
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
DOLCE59 Messages postés 11 Date d'inscription   Statut Membre Dernière intervention   > yg_be Messages postés 23541 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
DOLCE59 Messages postés 11 Date d'inscription   Statut Membre Dernière intervention   > yg_be Messages postés 23541 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
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > DOLCE59 Messages postés 11 Date d'inscription   Statut Membre Dernière intervention  
 
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
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > DOLCE59 Messages postés 11 Date d'inscription   Statut Membre Dernière intervention  
 
peux-tu partager ton fichier?
0
Réponse 2 / 3
DOLCE59 Messages postés 11 Date d'inscription   Statut Membre Dernière intervention  
 
https://accounts.google.com/ServiceLogin?service=wise&passive=1209600&continue=https://drive.google.com/file/d/1_oNeXt9hILfvRVbDe0oTwkN7tnzjg3BG/view?usp%3Dsharing&followup=https://drive.google.com/file/d/1_oNeXt9hILfvRVbDe0oTwkN7tnzjg3BG/view?usp%3Dsharing
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
le fichier n'est pas public.
0
Réponse 3 / 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

Réglage pour réception Astra 19.2
10adamr -
10adamr -

4 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
Fréquence idéale pour Astra 1
blache6279 -
bellilahm -

2 réponses
Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses