Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
1 K
Réponses
0
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…