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

  • Initiateur de la discussion Initiateur de la discussion olivm
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

olivm

XLDnaute Junior
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:

Code:
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.
 

Pièces jointes

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

Bonsoir
Comme ça :
VB:
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
À +
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
999
Réponses
0
Affichages
1 K
Retour