Modification cellule

Bonjour,

J'aimerais savoir comment modifier uniquement une case d'une cellule excel via une macro. Je dispose déja d'une macro me permettant de lire les données de mon tableau excel et de les modifier via un formulaire. Cependant je cherche à modifier uniquement une seul cellule via cette maccro et un text box. Merci de votre aide

CR

Bonjour clemroussi,

Pour modifier la valeur de la cellule active

Sub modifier()
    ActiveCell.Value = InputBox("Saisir la valeur pour la cellule " & ActiveCell.Address(False, False))
End Sub

Remplace Activecell par Range("A1") si la cellule à modifier est en A1

Bonne chance

Bonjour,

Merci pour votre réponse !

Si je veux ajouter une text box pour pouvoir le modifier directement dans mon formulaire, comment faire ?

CR

Mon programme est actuellement le suivant :

Private Sub UserForm_Initialize()

Dim J As Long

Dim I As Integer

Set Ws = Sheets("ARG2019") 'Correspond au nom de votre onglet dans le fichier Excel

With Me.ComboBox1

For J = 8 To Ws.Range("A" & Rows.Count).End(xlUp).Row 'J=3 permet de selectionner num rue 1

.AddItem Ws.Range("A" & J)

Next J

End With

For I = 1 To 6

Me.Controls("TextBox" & I).Visible = True

Next I

End Sub

'Pour la liste déroulante numero de rue

Private Sub ComboBox1_Change()

Dim Ligne As Long

Dim I As Integer

If Me.ComboBox1.ListIndex = -1 Then Exit Sub

Ligne = Me.ComboBox1.ListIndex + 8 'Agir ici pour gérer le décalage

For I = 1 To 6

Me.Controls("TextBox" & I) = Ws.Cells(Ligne, I + 1)

Next I

End Sub

Private Sub CommandButton1_Click()

Dim L As Integer

If MsgBox("Confirmez-vous l'insertion de ce nouveau contact ?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then

L = Sheets("ARG2019").Range("a65536").End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide

Range("A" & L).Value = ComboBox1

Range("B" & L).Value = TextBox1

Range("C" & L).Value = TextBox2

'Range("D" & L).Value = TextBox3

'Range("E" & L).Value = TextBox4

'Range("F" & L).Value = TextBox5

'Range("G" & L).Value = TextBox6

Range("D" & L).Value = CDbl(TextBox3.Value)

Range("E" & L).Value = CDbl(TextBox4.Value)

Range("F" & L).Value = CDbl(TextBox5.Value)

Range("G" & L).Value = CDbl(TextBox6.Value)

End If

End Sub

'Pour le bouton Modifier

Private Sub CommandButton2_Click()

Dim Ligne As Long

Dim I As Integer

If MsgBox("Confirmez-vous la modification de ces données ?", vbYesNo, "Demande de confirmation de modification") = vbYes Then

If Me.ComboBox1.ListIndex = -1 Then Exit Sub

Ligne = Me.ComboBox1.ListIndex + 8

For I = 1 To 6

If Me.Controls("TextBox" & I).Visible = True Then

Ws.Cells(Ligne, I + 1) = Me.Controls("TextBox" & I)

Range("D" & Ligne).Value = CDbl(TextBox3.Value)

Range("E" & Ligne).Value = CDbl(TextBox4.Value)

Range("F" & Ligne).Value = CDbl(TextBox5.Value)

Range("G" & Ligne).Value = CDbl(TextBox6.Value)

End If

Next I

End If

End Sub

'Pour le bouton Quitter

Private Sub CommandButton3_Click()

Unload Me

End Sub

Salut clemroussi,

Peux-tu partager le fichier ?

Ce serait nettement plus simple pour visualiser tout ça et voir ce que tu veux faire