Discussion :

[Bedley]

Bonsoir a tous!!

Je reviens encore une auprès de très chers bienfaiteurs pour solliciter de nouveau leur savoir

J'ai relié un code à un bouton qui me permet a chaque clic de copier une plage de données a partir de la ligne contenant le mot "SUPERSTRUCTURE" jusqu'à la dernière ligne et je souhaite insérer la copie apres la dernière ligne . J'aimerais aussi que lors de l'insertion, si le mot "STRUCTURE existe déjà, qu'il le remplace par R+1 et si R+1 existe alors il le remplace par R+2.

Le soucis est que j'arrive à effectuer la copie de la plage et l'insérer seulement lors du deuxième clique sur le bouton il il reste sur la première sélection et lors de l'insertion il ajoute toutes les autres données déjà inséré . Le second soucis c'est comment changer le texte "STRUCTURE" en R+1, R+2....... Comme je l'ai évoqué

Merci d'avance pour toute aide qui me sera très utile. Merci

Voici le bout de code élaboré

[Pierre Fauconnier]

Bonjour

Il serait intéressant de voir la feuille Excel pour se faire une idée.

Indépendamment de cela, le code proposé risque de poser problème à la ligne superstructurerow = application.worksheetfunction.match car la variable est typée Long et ne pourra pas recevoir une valeur d'erreur. Il faut la typer en variant (ou ne pas la typer, ce qui revient au même).

[Tête de chat]

Bonjour,

accessoirement, il me semble que le deuxième

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

lastrow = ws.Cells(ws.Rows.Count,"C").End(xlUp).Row

ne sert à rien puisqu'entre le 1er et llui il y a juste un copy, donc riende nature à modifier les données, donc la dernière ligne.

[Bedley]

Bonjour Mr Pierre Fauconnier

Merci pour votre intervention, mais je tente de vous envoyer le fichier excel en question mais je sais pas comment l'envoyer. Apparemment le forum n'autorise que le pièce jointes en photos ou images. Si vous avez une astuce pour moi afin que je puisse y parvenir alors cela le sera d'une grande utilité. MERCI

[Pierre Fauconnier]

Le problème soulevé vient de MATCH qui s'arrêtera au premier "SUPERSTRUCTURE" trouvé.

Sans avoir réécrit tout le code, je modifierais la ligne Superstructurerow = application.worksheetfunction.match... par superstructureRow = Evaluate("MAX(ROW('avant_metre'!C:C)*('avant_metre'!C:C=""superstructure""))")

[Bedley]

Pierre Fauconnier

La modification que vous avez fait marche parfaitement. Ca me recopie juste une copie a chaque clique. Mon premier problème vient d'être résolu. Je reste toujours à l'écoute pour mon deuxième soucis qui consiste à remplacer le "SUPERSTRUCTURE" par R+1 s'il existe déjà, et remplacer R+1 par R+2 si le R+ 1 existe déjà et ainsi de suite.

Merci d'avance a vous tous qui vous soucier de mes inquiétudes.

[Pierre Fauconnier]

Remplacez déjà les lignes comme je l'ai proposé. Cela n'aide pas?