Résultats de la recherche

Je vous présente une variante du jeu Tetris avec des règles repensées pour le transformer davantage en jeu de réflexion et de stratégie : de nombreux blocs plus ou moins complexes à placer, sur une grille plus grande, que l'on peut faire tourner avec une zone centrale aimantée, sans aucune...

Softmama a soumis une nouvelle ressource: TETRIS 360 - Tetris-like aux règles repensées se jouant sur un plateau que l'on peut faire tourner à tout moment En savoir plus sur cette ressource...

Cette ressource a été supprimée et n'est plus disponible.

Je ne comprends pas ce qui vous bloque, j'ai copié le code fourni tel quel sur votre fichier et voici le résultat obtenu : Cela me paraît bon. Votre fichier en PJ, avec le bout de code dans le module 1...

Bonjour jeanmi, sylvanu en VBA, rien de bien compliqué En faisant une recherche sur la feuille et en arrêtant quand il retombe sur l'adresse de départ : Sub Exemple() Dim c As Range Dim Résultat$ With Feuil1 ' Adapter avec par exemple : Sheets("Gestion de données") Set c =...

Assemblez des pièces de puzzle pour reconstituer une image. Ajoutez vos propres images ou photos. Plusieurs niveaux de difficulté, à partir de 4 ans.

Softmama a soumis une nouvelle ressource: Puzzle Couleurs - Convertissez vos images en Puzzles prêts à jouer sous Excel En savoir plus sur cette ressource...

Softmama a soumis une nouvelle ressource: Puzzle couleurs - Convertissez vos images en Puzzles prêts à jouer sous Excel En savoir plus sur cette ressource...

Bonsoir le fil, Juste pour laisser la place propre, j'ai corrigé un bug généré lorsque 2 intersections se suivaient comme le 3_3 et 3_4 dans l'exemple ci-dessous. Ce problème est désormais réglé dans cette version : Le fichier corrigé en PJ

Bonsoir le fil, mrromain, Katido Merci mrromain pour cette contribution très intéressante qui utilise l'idée d'ALS35 de passer par l'outil merveilleux proposé par Powerpoint. Et merci Katido, pour ces précisions que je n'exploiterai pas je pense désormais ayant pu trouver une solution entre...

Bonjour p56, En effet, cela est prometteur. Je suis également curieux de voir un fichier pour me plonger dedans. Par contre, il ne semble pas encore gérer si les points verts ou jaunes appartiennent ou non à l'autre forme, chose qui fonctionne bien sur mon fichier (j'ai fait une petite modif...

Bonsoir Patricktoulon, Merci pour ta réponse. En effet, c'est assez simple pour le cas que tu présentes qui est un cas particulier. Le problème reste entier lorsque le .Width de la forme groupée est inférieure à la somme de chaque forme qui la compose : impossible de savoir facilement si les...

Bonjour, Merci pour ce conseil qui me semble intéressant. En effet, le Selection.Join (Visio) que propose Powerpoint semble remplir directement ce que je cherche à faire, lorsque je le fais à la main depuis la diapo. Seulement, y a-t-il une façon d'automatiser la manipulation, car je parviens...

Bonjour, Pour ceux que ça intéresse, j'ai trouvé une piste que je vais développer. Si le point est dans la forme délimitée, la somme des angles de ce point avec les 2 sommets adjacents de la forme délimitée fait 360° (un cercle complet) et le nombre de segments de la forme délimitée traversés...

Bonjour à tous, Je bute sur un problème simple : A partir de 2 formes libres aléatoires de type Polygones FreeFormBuilder (en bleu), réaliser une nouvelle forme libre (jaune) qui épouse les contours des 2 bleues si les bleues se superposent. Je parviens à récupérer les coordonnées des sommets...

Bonjour, Comme je le disais, j'ai eu de la chance de trouver un résultat assez rapidement, l'algorithme que j'ai fait n'est pas super efficace... Il fonctionne néanmoins de temps en temps et le fichier envoyé en montrait un exemple.

Bonjour Givrico, bienvenu Un chouille compliqué cette affaire. J'ai fait un essai ici, mais le résultat trouvé l'a été au feeling. Je pense qu'il doit exister des algorithmes bien plus efficaces que ce que j'ai pondu. Je pense enfin que j'ai eu du bol de trouver un résultat comme ça. Avec moins...

Bonjour DIONJP, à tester, mais je dirais que cette ligne devrait faire l'affaire : Range("O3:U3").AutoFill Destination:=Range("O3:U" & Range("A" & Cells.Rows.Count).End(xlUp).Row), Type:=xlFillDefault bien cordialement

Bonsoir, J'avoue avoir du mal à comprendre. Lorsque j'étudie les formules que vous avez données en exemple dans votre fichier au post#4, vous obtenez le même résultat que ce que je vous propose. Pouvez-vous me donner le résultat attendu sur le solde2 en repartant de ce même exemple ? Bien...

Bonjour, Peut-être éviter le Set Nodupes = Nothing mais préférer un reDim à la place ?