Recherchev : Ramener des informations sans effacer l'existant
Bonjour,
Je vous expose ma question par un exemple construit de toutes pièces.
Mes excuses si ce dernier n'est pas très original.
Je dispose de deux feuilles Excel.
La première contient une liste d'articles
La seconde la liste des contrôles réalisés un autre jour.
Feuille 1 : Articles
Dans la troisième colonne on indique un V si le produit a été contrôlé disons le 17/01.
Nous sommes le 20/01.
Je reçois de mes collègues la feuille de contrôle du 19/01. (Feuille 2 : Contrôle)
Je souhaite ramener les résultats de ces contrôles dans ma feuille 1
Sans effacer le V indiqué.
En indiquant Pas Cont si nécessaire
Remplacer 124 par V si contrôlé
Merci pour vos bons conseils et bonne semaine à tous et toutes.
Bien à vous.
Vincent
Voici la suite
Option Explicit
Sub format()
Dim derligne As Long
Dim i As Integer
derligne = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To derligne
If Cells(i, 2).Value = "V" Or Cells(i, 3).Value > 0 Then
Cells(i, 4).Value = "V"
Else
Cells(i, 4).Value = "x"
End If
Next
End Sub
Problème
Il me renvoi un "V" ?
Cette nouvelle version donnent un meilleur résultat
sub syntheseINV()
Dim derligne As Long
Dim i As Integer
Dim p As Integer
derligne = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To derligne
If Cells(i, 10).Value = "V" Then
Cells(i, 13).Value = "V"
Else
For p = 10 To 12
If Cells(i, 11).Value > 0 Then
Cells(i, 13).Value = "V"
Else
End If
Next p
End If
Next
End Sub