Copier dans des cellules vides ...

[GTTeamKiller]

Bonjour,

j'ai actuellement un fichier excel qui référence des clients et connaissances diverses de ma société, ce fichier est à fusionner avec une base de données et pour cela j'ai ajouté une colonne codeclient dans laquelle j'ai demande à prendre les 5 premiers caractères de la raison sociale.


Ceci a été fait, cependant, certaines raisons sociales ayant des noms tres proches, j'ai des codes clients identiques pour deux sociétés différentes, et j'ai du de toutes facons modifier manuellement quelques codes de sociétés clientes qui existaient déjà dans la base de données sous un autre code client.

Donc je me retrouve avec ma colonne codeclient 'originale' et une code client modifiée mais partiellement remplie avec les nouveaux codes que j'ai entré ...
Et je cherche une macro qui me permettrait de combler cette colonne avec les valeurs de la colonne codeclient originale ...

Je débute sous excel et j'ai commencé le vba hier pour justement faire la fonction pour créer le code client donc mon niveau n'est pas tres elevé ...


Merci à ceux qui peuvent m'aider 😀

 

[djevilic]

Re : Copier dans des cellules vides ...

Salut,

Tu cherches a faire quoi exactement sur ta nouvelle colonne?
Tu veux remplir les blancs de ta nouvelle colonne par ceux de la colonne original?

Si c'est ca la commande n'est pas très complexe!! même pour un débutant!!!

ActiveCell.FormulaR1C1 = "=IF(RC[-1]<>"""",RC[-1],RC[-2])"
Range("C1").Select
Selection.AutoFill Destination:=Range("C1:C7"), Type:=xlFillDefault
Range("C1:C7").Select
Bien entendu a adapter a ta macro

Bonne chance

 

[GTTeamKiller]

Re : Copier dans des cellules vides ...

Salut,

Tu cherches a faire quoi exactement sur ta nouvelle colonne?
Tu veux remplir les blancs de ta nouvelle colonne par ceux de la colonne original?

Si c'est ca la commande n'est pas très complexe!! même pour un débutant!!!

Oui tout à fait, le probleme est qu'en parallèle je bosse aussi sur les bases et que du coup je suis 'parasité' par les commandes SQL que je connais déjà largement mieux pour faire ma macro :'(

 

[GTTeamKiller]

Re : Copier dans des cellules vides ...

J'ai déjà bien fait ca :

Sub Macro2()
For i = 2 To 3000
Range("AJ" & i).Select
Selection.Copy
Range("AL" & i).Select
If ActiveCell = Empty Then
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If
Next
End Sub


la colonne originale est AJ, et la colonne cible est AL ...

 

[GTTeamKiller]

Re : Copier dans des cellules vides ...

Cette macro marche finalement mais qu est ce qu elle est longue a s executer ...


je comprends pas, la copie devrait etre instantanée, et la je vois a peine 2 ligne traitées à la seconde et la machine mouline a fond, pourtant c est un core2duo @ 2Ghz avec 2Go de ram ...

 

[djevilic]

Re : Copier dans des cellules vides ...

C'est normal car a chaque fois tu prend ta cellule selectionne et tu compares a savoir si elle est vide ou non
et ensuite tu copies et ca répéter 2999 fois

Tu devrais enlever la sélection

 

[GTTeamKiller]

Re : Copier dans des cellules vides ...

mais comment lui indiquer quoi copier et vers ou si je n'ai pas de selection ?

 

[djevilic]

Re : Copier dans des cellules vides ...

Voilà ca marche temps d'exécution 5s:

Sub Macro2()
For i = 2 To 3000
Range("AJ" & i).Select
Selection.Copy
'Range("AL" & i).Select
If ("AL" & i) = Empty Then
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If
Next
End Sub

 

[GTTeamKiller]

Re : Copier dans des cellules vides ...

Si je comprends bien, c est juste a cause de ce activecell au lieu de nommer directement la cellule qui prend tout ce temps ?!

 

[djevilic]

Re : Copier dans des cellules vides ...

Oui,
Voici le bon code:

For i = 2 To 3000
Range("AJ" & i).Copy
If Range("AL" & i) = Empty Then
Range("AL" & i).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If
Next

 

[Staple1600]

Re : Copier dans des cellules vides ...

Bonjour


En plus rapide 😉

Sub Macro2_bis()
Application.ScreenUpdating = False
Dim i As Long
For i = 3000 To 2 Step -1
If IsEmpty(Range("AL" & i)) Then
Range("AL" & i).Value = Range("AJ" & i).Value
End If
Next i
Application.ScreenUpdating = True
End Sub

 

[GTTeamKiller]

Re : Copier dans des cellules vides ...

Merci à tous pour la solution de ce probleme 😀