Utilisation de Copier/Coller avec Condition

Bonjour à tous,

Je suis débutant en langage VBA et je bloque un peu. :oops:

J'ai un tableau de la forme suivante : (approximativement 200lignes)

(NOM) (PRENOM) (HORAIRE) (LIEU DE TRAVAIL) (HEURE NORMAL)
JACK HENRI Jour LYON OUI
ERIC LOLO NUIT LYON OUI
TOTO HEPAR jour LYON NON
RENE POLO NUIT LYON OUI

Mon but est d'insérer automatiquement une ligne en dessous dès que la condition horaire normal est à Non.
Dans cette ligne inséré je voudrais retrouver exactement les mêmes informations que celle du dessus.

Résultat final :

(NOM) (PRENOM) (HORAIRE) (LIEU DE TRAVAIL) (HEURE NORMAL)
JACK HENRI Jour LYON OUI
ERIC LOLO NUIT LYON OUI
TOTO HEPAR jour LYON NON
TOTO HEPAR jour LYON NON
RENE POLO NUIT LYON OUI

Pour l'instant j'ai écrit cette formule :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Sub test() i = 2 compteur = 1 nbcell = Application.WorksheetFunction.CountA(Feuil1.Range("$A:$A")) While i <= nbcell VARTEST = Range("O" & i).Value If VARTEST = "Normal" Then MsgBox "ok" Rows(i + 1).Copy Rows(i) Rows(i + 1).Insert i = i + 1 nbcell = nbcell + 1 End If MsgBox "shit" i = i + 1 Wend End Sub
J'ai bien une ligne qui s'insère en dessous correctement mais je ne colle strictement rien dedans, de plus j'ai des formules sur toute ma feuille et je ne veux que cela fonctionne de la même manière sans décaler.

Merci par avance de vos conseils et de votre aide.

Bonne soirée

Je te propose le code suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub test()
Dim test As Range
Dim i As Integer
 
With Worksheets("Feuil3")
    Set test = .Rows(1).Find("(HEURE NORMAL)", LookIn:=xlFormulas, lookat:=xlWhole)
    For i = 1 To .Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
        If test.Offset(i, 0) = "NON" Then
            test.Offset(i + 1, 0).EntireRow.Insert Shift:=xlUp
            test.Offset(i, 0).EntireRow.Copy
            test.Offset(i + 1, 0).EntireRow.Select
            test.Offset(i + 1, 0).EntireRow.PasteSpecial
            i = i + 1
            Application.CutCopyMode = False
        End If
    Next i
    .Columns(1).Find("*", , , , xlByColumns, xlPrevious).Offset(1, 0).Select
End With
End Sub

Il fonctionne mais n'est surement pas optimal. Probablement que quelqu'un d'autre aura une meilleur solution.
Pour autant, j'imagine qu'il répondra à tes attentes ! ^^

Bonjour,

Merci pour votre réponse. Par contre je rencontre plusieurs soucis.

Tout d'abord, je ne comprends pas pourquoi vous avez mis :

Code:

Find("*", , , , xlByColumns, xlPrevious)

De plus quand je lance le programme j'ai l'erreur suivante :

Citation:

Variable objet ou Variable de bloc WITH non définie

Et dans If test.Offset(i, 0) = "Normal" Then j'ai en résultat de variable "Nothing", le problème doit donc venir d'ici.

Merci par avance de vos réponses.

Ce message d'erreur signifie que tu n'as pas stipulé la bonne feuille sur laquelle tu travailles...

J'aurais peut-être du préciser qu'il faut changer

Code:

With Worksheets("Feuil3")

par le bon nom.

Pour te répondre malgré tout :

Code:

Find("*", , , , xlByColumns, xlPrevious).Row

signifie que je cherche la dernière ligne non-vide. Cela permet permet de toujours aller jusqu'a la dernière ligne si ton tableau augmente ou diminue => gain de "temps".

De plus : As-tu bien "(HEURE NORMAL)" comme entête exacte ? J'entends par là est-ce que la cast est bien MAJ avec des parenthèses de chaque côté ? Si ce n'est pas le cas, remplace cette recherche par le nom exacte du titre de ta colonne. :ccool: