Macro "Rechercher si il existe un N) déjà existant, si oui, copier, si non"...

[olivm]

Bonjour le forum,

Je travaille actuellement sur un fichier de 36 000 lignes, donc j'aimerais automatiser quelques saisies de cellules, et nottament le saisie du n°client.

Voir fichier exemple joint pour la structure du tableau.


Je veux crée une macro qui me permettrait d'automatiser "si pour le même client identifié par le n° de correspondance, il existe déjà un n°client societemere, alors saisir celui-là, sinon, saisir le n° de correspondance".

J'ai commencé une macro, mais avec mon faible niveau en VBA, j'arrive seulement à recopier le n° client de la cellule du dessus, il me manque la structure d'un index equiv je pense:

Sub essai()

For i = 1 To 35987
If Cells(i, 2).Value = "dataglobale" Then Cells(i, 3).Value = Cells(i - 1, 3)
Next i

End Sub

Je vous remercie par avance pour l'intérêt que vous porterez à mon problème.

 

[olivm]

Re : Macro "Rechercher si il existe un N) déjà existant, si oui, copier, si non"...

N'hésitez pas à me demander plus d'explications si vous ne comprenez pas le probllème

 

[Dranreb]

Re : Macro "Rechercher si il existe un N) déjà existant, si oui, copier, si non"...

Bonsoir
Comme ça :

Sub Essai()
Dim L As Long, NoCli As Long
For L = 1 To 35987
   If Cells(L, 2).Value = "datasocietemere" Then
      NoCli = Cells(L, 3).Value
   ElseIf Cells(L, 2).Value = "dataglobale" Then
      If NoCli = 0 Then NoCli = Cells(L, 1).Value
      Cells(L, 3).Value = NoCli
      NoCli = 0
      End If
   Next L
End Sub

À +

 

[olivm]

Re : Macro "Rechercher si il existe un N) déjà existant, si oui, copier, si non"...

Merci beaucoup dranreb !