Demande de renseignements ma macro ,e fonctionne pas

Résolu/Fermé

DOLCE59 Messages postés 11 Date d'inscription mardi 3 novembre 2020 Statut Membre Dernière intervention 6 novembre 2020 - Modifié le 3 nov. 2020 à 19:02
archer - 4 nov. 2020 à 20:52

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:

Demande de renseignements ma macro ,e fonctionne pas
É - Guide
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité

3 réponses

Réponse 1 / 3

yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
3 nov. 2020 à 19:13

bonjour,
peut-être

Rows(L)

au lieu de

Selection

yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
Modifié le 3 nov. 2020 à 19:16

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?

DOLCE59 Messages postés 11 Date d'inscription mardi 3 novembre 2020 Statut Membre Dernière intervention 6 novembre 2020 > yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024
4 nov. 2020 à 09:33

Bonjour,
comment fait avec une autre technique pour détecter le fin de la zone par le bas ?
Merci beaucoup

Bonjour,
Merci pour ton retour mais hélas cela ne fonctionne pas, rien ne se passe.

yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476 > DOLCE59 Messages postés 11 Date d'inscription mardi 3 novembre 2020 Statut Membre Dernière intervention 6 novembre 2020
4 nov. 2020 à 10:33

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.

peux-tu partager ton fichier?

Réponse 2 / 3

DOLCE59 Messages postés 11 Date d'inscription mardi 3 novembre 2020 Statut Membre Dernière intervention 6 novembre 2020
Modifié le 4 nov. 2020 à 13:09

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

yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
4 nov. 2020 à 13:12

le fichier n'est pas public.

Réponse 3 / 3

archer
4 nov. 2020 à 20:52

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

Discussions similaires

"e" trema

écrire "e" avec chapeau au clavier

''e'' et ''i'' Tréma

Taper un e trema

Comment faire le tréma sur le e ? Ça ne fonctionne pas avec shift et accent circ

Discussions similaires

Newsletters