[XL-2007] copie et transfert de certaines cellules d'une feuille vers une autre feuille avec mise en page sujet

bonjour,
j'ai surement mal chercher mais je ne trouve pas réponse à mon problème, que voici:
- je voudrais en sélectionnant un ligne de mon tableau excel avoir grâce à un bouton de commande qu'il y est une copie de certaines cellules et coller dans une deuxième feuille dans des cellules bien précise. je me complète en sélectionnant la ligne X de la feuille Etat-engins et en clickant sur le bouton os les cellules AX, BX, CX et MX soit copiées vers la feuille os et mis respectivement en E35 pour AX, C53 pour BX, E38 pour CX et C54 pour MX.
merci de votre aide, je vous joint mon fichier afin d'être plus clair.test.zip

Fichiers attachés

• 
  
  test.zip
  (97,3 Ko)
  

XL 2002 (XP) Faire coorespondre les couleures de fond de 2 cellules. sujet

Bonjour à tous,

Une petite question, Voila j'aimerai arriver a faire correspondre la couleur de fond d'une cellule avec celle du bas qui à elle déjà une mise en forme conditionnelle ...

Je re-formule : j'aimerai que D11 (couleur de fond) = D12 Si "EVA" = vert / Si "MSE" = rouge / Si "CAI" = bleu ...

J'arrive a faire la mise en forme conditionnelle, mais comment faire ^^ ?

excel001.JPG

[XL-2003] Copier les commentaires des cellules feuille 1 vers des cellules feuilles 2 sujet

Bonsoir,

Comment réaliser la copie de commentaire de cellules d'une feuille 1 vers des cellules d'une feuille 2 ? Le point d'entrée entre les deux feuilles est une colonne avec la date. La copie des informations des cellules de la feuille 1 vers les cellules de la feuille 2 se font via la fonction RECHERCHEV.

Voir le fichier Excel pour mieux comprendre le besoin.

Merci de votre aide,
Jean-Michel

Fichiers attachés

• 
  
  CopierCommentaire.xls
  (30,5 Ko)
  

XL 2007 Effacer les cellules fusionnees sous condition d'autre cellule sujet

Bonsoir Forum
je cherche un code VBA
quand j'efface le contenu de la cellule fusionnée G12(G-K12) les autres cellule fusionnées L12 ( L-O12) et P12 ( P-Q) R12 (R-T12) s'effacent automatiquement; je vous informe que la feuille est protegé .. mais les cellules de mon souci ne sont pas verouillées
GRAZIE

XL 2007 liste de cellules fusionnées et simplification de macro sujet

Bonsoir amis du forum
je recherche une solution pour un problème de cellules fusionnées ;
Voila je m'explique ,
j'ai un fichier avec environs 200 onglets , sur chaque onglet j'ai plusieurs cellules fusionnées, pas toujours les mêmes ,ces cellules doivent être de couleur différant selon la valeur d'une cellule ici A1.
j'ai fait une macro avec l'enregistreur et les MFC ,
mais je me retrouve avec une série de MFC que je ne veux pas ,je ne sais pas comment transformer la macro pour que selon la valeur en A1 de la feuille la série de cellules change de couleur .
De plus, je voudrais avoir si possible la liste des cellules fusionnées dans une cellule , ce qui me permettrait de sélectionner cette cellule pour fais fonctionner la macro
Range("C3:F5,B4:B11,C9:E11,F6:F18").Select

merci pour votre aide
bonne soirée à tous

Fichiers attachés

• 
  
  cellules fusionées.xlsm‎
  (24,0 Ko)
  

Effets du manque de sommeil: mort de certaines cellules du cerveau sujet

Des chercheurs de l'Université de Pennsylvanie ont réalisé une nouvelle étude concernant les effets du manque de sommeil. D'après les résultats, ce fait pourrait entraîner la mort des cellules cérébrales nécessaires pour les fonctions cognitives et la vigilance. Même en rattrapant les heures de sommeil manquantes, ces effets pourraient être irréversibles.

Effets du manque de sommeil: mort de certaines cellules du cerveau

[XL-2010] Concatener cellules où les emails sont en doublon sujet

Bonjour à toutes et tous,
Je ne suis pas bonne du tout en excel et j'ai un boulot à rendre prochainement, avis aux âmes charitables :)

Voilà, j'ai un fichier comprenant en colonne A des emails, en colonne B des téléphones et en colonnes C des secteurs d'activités.
Ce qu'il me faut comme résultat c'est obtenir un fichier excel où pour tous les emails en doublon on concatene les secteurs d'activités.

Ex : Si l'email de monsieur Durand apparait 10 fois avec 10 secteurs d'activités différents, je souhaite que la formule me permette de me retrouver avec un fichier où l'email de monsieur Durand n'apparait plus qu'une seule fois et où les 10 secteurs d'activités on été concatenés dans une seule et même cellule.

Ps : j'ai déjà évidemment dédoublonné le fichier des lignes où l'email et le secteur d'activité sont strictement identiques.

Je pense que ce n'est pas très compliqué mais je n'ai pas les bons réflexes :(

Merci à vous
Cécile

XL 2010 Pourcentage entre 2 cellules sujet

Bonjour, dans le fichier joint, en B2, j'ai le nb de jour travaillé, en C2 le nb de jour chaumé, en D2, je cherche le résultat qui doit être de 50%, mais avec la formule utilisée '(C2-B2)/ABS(B2)' , ça ne fonctionne pas....
Merci pour votre aide.

Fichiers attachés

• 
  
  Test pourcent.xlsx‎
  (9,3 Ko)
  

XL 2007 Cellules d'Excel liées à une page Word sujet

Bonjour à tous !

Je suis actuellement en plein souci car je n'arrive pas à lier mes cellules d'Excel avec mon document Word sous Office 2007.

Veuillez trouver mon fichier ci joint, mon but étant de créer exactement le même rendu sous Word que mon fichier Excel et que les données se mettent à jour automatiquement (fichier source : Excel)

Pour le "nombre 1" "nombre 2" et "Graphique 1" je n'ai aucun souci, mais lorsqu'il s'agit de lier les autres cellules de mon fichier excel, étant donné que certaines cellules sont fusionnées, tout se décale et soit il ne me laisse pas accès au collage spécial (qui me permet de créer la liaison) soit je ne voit pas carrément plus rien dans ma cellule... Je ne sais pas quoi faire :( !


Merci de votre aide !

Fichiers attachés

• 
  
  TEST.xlsx‎
  (15,3 Ko)
  

[XL-2010] Adresse de cellules Erreur d'exécution sujet

Bonjour à tous,

Après avoir passé pas mal de temps à chercher un peu partout sur internet sans résultat, je vous appelle à l'aide.

J'ai pris l'habitude de toujours écrire mon code comme ci-dessous (je trouve que ça limite les erreurs)

Code:

---

If Workbooks(Fill_Name).Sheets("Import").Left(Cells(A + 1, 2), 1) = Type_point Then

---

Le problème apparait lors de l'exécution du code. Il m'indique des erreurs (Erreur d'exécution '438' ou '1004').

Par contre lorsque le code est écrit de la façon suivante, aucun soucis

Code:

---

1 2 3

Workbooks(Fill_Name).Activate Sheets("Import").Select Left(Cells(A + 1, 2), 1) = Type_point

---

Je ne comprends pas du tout pourquoi ça plante. Si quelqu'un pouvait éclairer ma chandelle ce serait génial.

Merci d'avance

Somme de plusieurs cellules sujet

Bonjour à tous,

J'explique mon problème

J'ai une plage de données de la colonne A à D
Je souhaite dans la colonne E faire la somme de chaque ligne de ma plage de données.

J'ai essayé ce code mais il ne m'affiche rien.

Code:

---

1 2 3 4 5 6

Sub test() Columns("E").Select For i = 2 To 1000 ActiveCell.Value = WorksheetFunction.Sum(Range("A2:D2")) Next i End Sub

---

Merci de votre aide

Verrouillage de cellules sujet

Bonjour à tous,

J'aimerais pouvoir verrouiller toutes les cellules d'une feuille à l'exception de quelques unes.
J'ai programmé quelque chose, mais il semblerait que cela ne fonctionne pas. Le message d'erreur suivant s'affiche : "Impossible de définir la propriété locked de la class Range".

Mon code est le suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Dim Feuil_Type_Fi As Worksheet Dim Feuil_Active As Worksheet Set Feuil_Active = ThisWorkbook.Sheets("Feuil") 'Déprotège la feuille Feuil_Active.Unprotect 'On verrouille toutes les cellules Feuil_Active.Cells.Locked = True 'On déverrouille les cellules auxquelles on veut pouvoir accéder Feuil_Active.Cells(9, 5).Locked = False Feuil_Active.Cells(26, 13).Locked = False Feuil_Active.Cells(31, 13).Locked = False Feuil_Active.Cells(32, 13).Locked = False Feuil_Active.Cells(33, 13).Locked = False Feuil_Active.Cells(34, 13).Locked = False 'On applique la protection sur la feuille Feuil_Active.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False

---

Est-ce que quelqu'un a une idée de l'erreur ? Le debugger se positionne sur la ligne " Feuil_Active.Cells(26, 13).Locked = False"

Merci d'avance pour votre aide !

[XL-2013] organiser les cellules par 3 puis passage à la ligne sujet

Bonjour à tous!!

Voila mon problème: j'ai une ligne excel avec 60 cellules remplies.
J'aimerais une macro ou formule qui organise mes cellules par 3, c'est à dire que que ces 60 cellules se retrouvent sur 20 lignes de 3 cellules dans une feuille 2..... Est ce possible?
Après pas mal de recherche, j'ai rien trouvé^^ :/ donc si quelqu'un a une solution à me proposer??
MERCI D'AVANCE A TOUS!! :)

XL 2010 Fusion de 2 cellules en vba sujet

Bonsoir à tous,

Je suis novice en vba et je rencontre déjà un petit problème.
Je vous explique j'ai 2 feuilles identique avec la même forme. Je voudrais faire une fusion avec mes 2 premières colonnes de chaque feuille que je vais mettre dans une troisième feuille.
J'ai commencé le code mais le problème c'est qu'il me fusionne juste les 2 premières infos mais pas les autres et il ne l'est affiche pas. Si quelqu'un pouvais m'aidé..

Voilà mon code et je fourni aussi mon fichier excel pour que vous comprenez ce que je veux faire:

Code :

---

Sub Fusion()
 
Dim s As Byte
 
 For s = 1 To 2
    With Sheets(s)
 
    Sheets("Sheet3").Range("A2" & n) = Sheets(s).Range("A2" & n) & "" & Sheets(s).Range("B2" & n)
 
    End With
Next s
 
End Sub

---

Je vous remercie d'avance.

Fichiers attachés

• 
  
  essai.zip‎
  (19,3 Ko)
  

Fusion 2 cellules excel vba sujet

Bonsoir à tous,

Je suis novice en vba et je rencontre déjà un petit problème.
Je vous explique j'ai 2 feuilles identique avec la même forme mais différente information.

Je voudrais faire une fusion avec mes 2 premières colonnes que je vais mettre dans une 3ième feuille. J'ai commencé le code mais le problème c'est qu'il me fusionne juste les 2 premières infos mais pas les autres et il ne l'est affiche pas. Si quelqu'un pouvais m'aidé..

Voilà mon code et je fourni aussi mon fichier excel:

Code:

---

Sub Fusion()

Dim s As Byte

 For s = 1 To 2
    With Sheets(s)
   
    Sheets("Sheet3").Range("A2" & n) = Sheets(s).Range("A2" & n) & "" & Sheets(s).Range("B2" & n)

    End With
Next s

End Sub

---

Merci d'avance pour vos réponse

Fichiers attachés

essai.zip (19,3 Ko)

Actualité - Cellules souches : un simple bain d’acide suffit pour les fabriquer ! sujet

Fabriquer des cellules souches ? Rien de plus facile. Il suffit de les plonger 30 minutes dans une solution acide, attendre quelques jours et le tour est joué. En revanche, convaincre la...

Lire la suite : Cellules souches : un simple bain d’acide suffit pour les fabriquer !

XL 2013 Afficher les chiffres d'une cellules suivant condition sujet

Bonjour le forum,

Je tourne en rond pour trouver une formules qui puisse afficher les chiffres d'une cellules suivant condition "Lot de" voir fichier joint

Merci d'avance
Riton50

Fichiers attachés

• 
  
  Chiffre dune cellule.xlsx‎
  (9,6 Ko)
  

XL 2010 Centrer image sur cellules ou cellulles fusionnées avec sélection manuelle sujet

Bonjour à tous,

Je souhaite pouvoir centrer une image que je souhaite sélectionner à la souris sur une ou plusieurs cellules ou sur des cellules fusionnées sélectionnées aussi à la souris.

J'arrive à sélectionner les cellules mais j'ai l'impression que l'InputBox ne gère pas les cellules fusionnées.
J'aimerais également pouvoir sélectionner l'image que je souhaite centrer.

Quelqu'un pourrait m'aider?

Par avance merci.

Ci-dessous macro VBA chopée d'un autre forum.

Sub CentreImage()
Dim cel As Range, k1 As Double, k2 As Double
Set cel = Application.InputBox(prompt:="Sélectionner les cellules sur la feuille", Type:=8) ' à modifier pour tenir compte des cellules fusionnées
With ActiveSheet.Shapes("Image 1") 'à modifier pour sélectionner l'image
k1 = .Width / cel.Width
k2 = .Height / cel.Height
If k1 > k2 Then
.Width = (.Width / k1) - 4
.Top = cel.Top + (cel.Height - .Height) / 2
.Left = cel.Left + 2
Else
.Width = .Width / k2 - 2
.Top = cel.Top + 1
.Left = cel.Left + (cel.Width - .Width) / 2
End If
End With
End Sub

XL 2010 Centrer image sur cellules ou cellulles fusionnées avec séléection manuelle sujet

Bonjour à tous,

Je souhaite pouvoir centrer une image que je souhaite sélectionner à la souris sur une ou plusieurs cellules ou sur des cellules fusionnées sélectionnées aussi à la souris.

J'arrive à sélectionner les cellules mais j'ai l'impression que l'InputBox ne gère pas les cellules fusionnées.
J'aimerais également pouvoir sélectionner l'image que je souhaite centrer.

Quelqu'un pourrait m'aider?

Par avance merci.

Ci-dessous macro VBA chopée d'un autre forum.

Sub CentreImage()
Dim cel As Range, k1 As Double, k2 As Double
Set cel = Application.InputBox(prompt:="Sélectionner les cellules sur la feuille", Type:=8) ' à modifier pour tenir compte des cellules fusionnées
With ActiveSheet.Shapes("Image 1") 'à modifier pour sélectionner l'image
k1 = .Width / cel.Width
k2 = .Height / cel.Height
If k1 > k2 Then
.Width = (.Width / k1) - 4
.Top = cel.Top + (cel.Height - .Height) / 2
.Left = cel.Left + 2
Else
.Width = .Width / k2 - 2
.Top = cel.Top + 1
.Left = cel.Left + (cel.Width - .Width) / 2
End If
End With
End Sub

XL 2007 Concatener cellules d'une même colonne si... sujet

Bonjour à tous, le Forum,

j'aurai besoin de concatener plusieurs cellules même colonne si la référence est identique, si la référence n'existe pas la cellule reste vide (pas super clair...). je vous joins un exemple avec le résultat souhaité.

Onglet "BDD_PWO" est une liste de gamme opératoire (numérotation unique, il ne peut pas y avoir 2x le même numéro)
Onglet "MOP" est une table dans laquelle je rentre les différents commentaires de précision de la gamme (une ligne excel pour une ligne de commentaire dans l'application)

Je souhaiterais dans la colonne U de l'onglet "BDD_PWO" concatener toutes les valeurs de la colonne E de l'onglet "MOP".
-Le lien étant le numéro de la gamme.
-L'ordre de concatenation à suivre est l'ordre croissant des numéros de lignes.

Pourquoi? pour permettre une mise en forme (saut de ligne) lors de la conversion du fichier .csv en .xml

Merci d'avance de votre aide, toujours précieuse.
Bonne journée

Fichiers attachés

• 
  
  Classeur1.xlsx‎
  (103,6 Ko)