[ RESOLU] Collage d'une partie d'une cellule sur d'autres cellules sous condition

[Icedarts]

Bonjour à tous,

Le titre semble compliqué car je ne sais pas comment définir mon problème.
J'ai un fichier (en pièce jointe) avec sur les lignes en fond bleu à la fin un numéro.
Je souhaiterai extraire ce numéro et le coller entre les lignes rouge et bleu.
Le problème c'est que l'espace entre ces lignes varie...

Je sais que ce n'est pas clair alors si vous avez des questions n'hésiter pas ça sera peut-être plus simple!

Merci d'avance.

 

[laetitia90]

Re : Collage d'une partie d'une cellule sur d'autres cellules sous condition

bonjour Icedarts🙂
"brut" de bon matin je dirais comme cela ???

Sub es()
 Dim i As Long
 Application.ScreenUpdating = False
 On Error Resume Next
 For i = Cells(Rows.Count, 10).End(xlUp).Row To 1 Step -1
 If Cells(i, 10) <> "" And Cells(i - 1, 8) <> "Moy/match" Then _
 Cells(i - 1, 10).Value = Cells(i, 10).Value
 Next i
End Sub

 

[Icedarts]

Re : Collage d'une partie d'une cellule sur d'autres cellules sous condition

Bonjour,

ça fonctionne, merci beaucoup, manque plus que l'extraction du numéro ^^ parce que manuellement ça représente pas moins de 1500 fois à faire lol.

 

[laetitia90]

Re : Collage d'une partie d'une cellule sur d'autres cellules sous condition

bonjour Icedarts🙂
je pense que tu parles de ta formule en colonne J ??
tu peus ecrire comme cela je suppose que ces 2 caracteres "N°" se trouve uniquement sur les cellules concernées
autrement il faut écrire différament

si beaucoup de lignes peut être passer par un " tablo " a voir!!!

Sub es()
 Dim i As Long
 Application.ScreenUpdating = False
 On Error Resume Next
 For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
 If Cells(i, 1) Like "*N°*" Then Cells(i, 10) = Right(Cells(i, 1), 5)
 If Cells(i, 10) <> "" And Cells(i - 1, 8) <> "Moy/match" Then _
 Cells(i - 1, 10) = Cells(i, 10)
 Next i
End Sub

 

[laetitia90]

Re : Collage d'une partie d'une cellule sur d'autres cellules sous condition

re,🙂
une facon de l'écrire en utilisant un "tablo"

 

[Icedarts]

Re : Collage d'une partie d'une cellule sur d'autres cellules sous condition

Merci beaucoup c'est parfait!